vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 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
Re: Ich brauche Hilfe von einem Experten 
Autor: M_Weckner
Datum: 26.02.02 10:08

Dim F As Integer
Dim sFile As String
Dim sLine As String
Dim lPos As Long
Private Sub Form_Load()

sFile = "a.txt"

' Datei öffnen und zeilenweise einlesen
F = FreeFile
Open sFile For Input As #F -----> hier kommt ein laufzeitfehler nr. 53
While Not EOF(F)
Line Input #F, sLine

' nach Leerzeichen suchen
Do
lPos = InStr(sLine, " ")
If lPos > 0 Then
Debug.Print Left(sLine, lPos - 1)
sLine = LTrim(Mid(sLine, lPos + 1))
Else
Debug.Print sLine
Exit Do
End If
Loop Until lPos = 0
Wend
Close #F

End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Ich brauche Hilfe von einem Experten135M_Weckner26.02.02 07:20
Re: Ich brauche Hilfe von einem Experten87Ralf26.02.02 08:58
Re: Ich brauche Hilfe von einem Experten79M_Weckner26.02.02 09:10
Re: Ich brauche Hilfe von einem Experten387ModeratorDieter26.02.02 09:43
Re: Ich brauche Hilfe von einem Experten77M_Weckner26.02.02 10:03
Re: Ich brauche Hilfe von einem Experten74M_Weckner26.02.02 10:05
Re: Ich brauche Hilfe von einem Experten79M_Weckner26.02.02 10:08
Re: Ich brauche Hilfe von einem Experten395ModeratorDieter26.02.02 10:17
Re: Ich brauche Hilfe von einem Experten81M_Weckner26.02.02 10:19
Re: Ich brauche Hilfe von einem Experten401ModeratorDieter26.02.02 10:21
passiert nix *heul*80M_Weckner26.02.02 10:28
passiert nix *heul* *schnief*81M_Weckner26.02.02 11:22

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