|
Visual # Setta una variabile lungo = lunghezza del file sorgente
lungo = FileLen(sourcefile) Open resulttmpfile For Input As #1 'cicla sul file per stabilire la max length tra le rows ROW_LEN = 0 While Not EOF(1) Line Input #1, ROWSTRING$ Percento = Percento + Len(ROWSTRING) If Percento > 0 And Int((Percento * 100) / lungo) <= 100 Then ProgressBar1.Value = Int((Percento * 100) / lungo) Label13.Caption = Int((Percento * 100) / lungo) & " %" Label13.Refresh |