vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Fortschrittanzeige beim Auslesen von TEXT-Dateien 
Autor: georg-30
Datum: 17.08.03 14:24
hallo leute ich habe ein problem beim vervollständigen dieses codes.

also hier mal mein code

Private Sub Command3_Click()
Dim F As Integer
Dim sLine As String
Dim sFile As String
Dim nSize As Long
Dim iProz As Integer

' Datei, die ausgelesen werden soll
sFile = App.Path & "/" & Label2.Caption

' Datei öffnen
F = FreeFile
Open sFile For Input As #F

' Größe der Textdatei
nSize = LOF(F)

' Zeilenweise auslesen und aktuellen
' Fortschritt anzeigen
Do Until EOF(F)
Line Input #F, sLine

' Fortschritt in Prozent
iProz = Int(Loc(F) * 128 / nSize * 100 + 0.5)
lblStatus.Caption = " Fortschritt: " & CStr(iProz) & "%"
DoEvents




hier mein code
.......
......
.......
If Err <> 0 Then
Text1.Text = sLine
Loop
Else
MsgBox "Test Gelungen"
End If
' Datei schließen
Close #F

End Sub
nur kommt immer der fehler loop ohne do was mache ich falsch?
danke im vorraus georg
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fortschrittanzeige beim Auslesen von TEXT-Dateien524georg-3017.08.03 14:24
Re: Fortschrittanzeige beim Auslesen von TEXT-Dateien410Michael F17.08.03 14:33
Re: Fortschrittanzeige beim Auslesen von TEXT-Dateien322Michael F17.08.03 14:39
Re: Fortschrittanzeige beim Auslesen von TEXT-Dateien327georg-3017.08.03 14:50
Re: Fortschrittanzeige beim Auslesen von TEXT-Dateien296Michael F17.08.03 14:54
Re: Fortschrittanzeige beim Auslesen von TEXT-Dateien343georg-3017.08.03 14:57
Re: Fortschrittanzeige beim Auslesen von TEXT-Dateien345Michael F17.08.03 15:01
Re: Fortschrittanzeige beim Auslesen von TEXT-Dateien310georg-3017.08.03 15:45

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel