Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Hab da ein problem in VB
Autor: M_Weckner
Datum: 01.03.02 07:48
Hallo ich hab den code hier: Private Sub cmdTest1_Click() Dim F As Integer Dim N As Integer Dim sFile As String Dim sLine As String Dim Name As String Dim lPos As Long Dim sFileTmp As String sFile = App.Path & "user.txt" sFileTmp = App.Path & "Userneu.txt" sfileBat = App.Path & "Userneu.bat" ' 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 Name = "" ' nach Leerzeichen suchen Do lPos = InStr(sLine, " ") If lPos > 0 Then ' in temporäre Datei speichern Name = Name + Left(sLine, lPos - 1) sLine = LTrim(Mid(sLine, lPos + 1)) Print sLine Else sLine = "net user /domain " + Name Print #N, sLine End If 'sLine = "net user /domain " + Name Print #N, "test net user /domain " + Name 'Exit Do Loop Until lPos = 0 Wend Close #F: Close #N der text der aus der datei gelesen wird ist in 3 spalten gemacht. ich will diese 3 spalten untereinander haben, doch die 3 spalten sind einfach zusammen gerückt. zu alldem muss vor jeden namen diese zeile mit der net user /domain XXX wer kann mir ein paar tips gben? danke vorab mfg maik

Hab da ein problem in VB

81

M_Weckner

01.03.02 07: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