Hjälp mig på traven..

Jag vill lägga in en ProgressBar i min loop. Jag vet inte på förhand maxvärdet. Skall jag plocka ut filstorleken från filen som jag läser från som maxvärde eller...

Min kod:

If Check1.Value = 1 Then
Print #2, rad & txtPreFix & räknare
Else
Print #2, rad & räknare
End If
DoEvents
Loop
Next i

/en som lämnat Delphi(so far)

Hej
Så här skulle jag lösa det

Dim FileNum As Long,dummyStr As String
Dim pgbMax As Long

FileNum = FreeFile

Open "C:\MinFil.txt" For Input As #FileNum
pgbMax = 0
Do until FileNum(EOF)
Line Input #FileNum,dummyStr
pgbMax = pgbMax + 1
DoEvents'detta körs i skymundan
Loop
Close #FileNum

Nu vet du att filen innehåller pgbMax rader
som du kan använda som maxvärde för din
PogressBar

mvh
Sven

Igen
Ett annat sätt vore att du använder
FileLen(C"\Minfil.txt) då får du
svar i Bytes och seda får du kolla
hur många bytes som varje Printsats
utför i sin loop. På det viset manövrera
ProgressBar med antal printade bytes
upp till värdet på FilLen

DS

Tack så mycket båda två! jag spann vidare på förslag nr 2, eftersom jag läser in ganska stora filer(2-300 mb).

/Hani

Är det inte bara att använda LOF(FileNo) För att hämta längden och LOC() För aktuell Positon.