Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Namen in einer datei etwas anhängen
Autor: M_Weckner
Datum: 28.02.02 11:43
Hallo, so hier noch mal das proggy von den letzten tagen: ------------------------------------------------------------------------------------------------------------------ Private Sub cmdTest1_Click() Dim F As Integer Dim N As Integer Dim sFile As String Dim sLine As String Dim lPos As Long Dim sFileTmp As String sFile = "C:ProgrammeVisual StudioVB98Projet-dateiuser.txt" sFileTmp = "C:ProgrammeVisual StudioVB98Projet-dateiaFert.txt" ' Dateien öffnen F = FreeFile: Open sFile For Input As #F N = FreeFile: Open sFileTmp For Output As #N ' zeilenweise einlesen While Not EOF(F) Line Input #F, sLine ' nach Leerzeichen suchen Do lPos = InStr(sLine, " ") If lPos > 0 Then ' in temporäre Datei speichern Print #N, Left(sLine, lPos - 1) sLine = LTrim(Mid(sLine, lPos + 1)) Else Print #N, sLine Exit Do End If Loop Until lPos = 0 Wend Close #F: Close #N ' Originaldatei löschen Kill sFile ' temporäre Datei in Originaldatei umbenennen Name sFileTmp As sFile End Sub ----------------------------------------------------------------------------------------------------------- ich muss irgendwie schaffen das nach jeden namen, in der gleichen zeile das kommt: net*leerzeichen*user *leerzeichen*/domain *leerzeichen**NAME* oder so : net_user_/domain_name mfg maik

Namen in einer datei etwas anhängen

58

M_Weckner

28.02.02 11:43

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