Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Helft mir einer bitte?
Autor: M_Weckner
Datum: 27.02.02 06:55
moin moni! Ich hab eine Text datei in der viele namen ungeordnet stehen und muss diese namen untereinander mit "einem2 knopfdruck hinkriegen. Das klaptt auch mit dem code: Dim F As Integer Dim sFile As String Dim sLine As String Dim lPos As Long Private Sub cmdTest1_Click() sFile = App.Path & "a.txt" 'sFile = "a.txt" ' Datei öffnen und zeilenweise einlesen F = FreeFile Open sFile For Input As #F 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 'Unload Me End Sub Aber die namen stehen nur im Direktfenster untereinader! wie kann ich das so machen damit die namen in einer neuen Text datei abgespeichert werden? Bin für alle Vorschläge offen! Danke mfg Maik

Helft mir einer bitte?	84	M_Weckner	27.02.02 06:55
Re: Helft mir einer bitte?	268	Dieter	27.02.02 09:01
Re: Helft mir einer bitte?	45	M_Weckner	27.02.02 09:19
Es fehlt doch nur der Backslash	246	Dieter	27.02.02 09:26
Trotzdem kommt der fehler	37	M_Weckner	27.02.02 09:29
Na dann wird die Datei nicht existieren	251	Dieter	27.02.02 09:42
JUHU!!!	47	M_Weckner	27.02.02 09:48

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übersicht

Suchen