Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Brauch dringend Hilfe
Autor: M_Weckner
Datum: 28.02.02 10:57
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 user /domain und ich soll danach die datei als txt und als bat datei abspeichern! danke für alles im voraus!! mfg maik

Brauch dringend Hilfe	60	M_Weckner	28.02.02 10:57
Re: Brauch dringend Hilfe	42	Maverick	28.02.02 15:57

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