Der_DUD

@Hades Danke jetzt funzt es wirklich. @Jayn Vielen Dank für deine Mühen, hab auber auch jenauso gedacht wie du! Wie gesagt, danke!

jep, bekomme aber immer nur ein schwarzes Viereck, das wird in word als Zeilenumbruch erkannt, aber net in Notepad?? oder einem anderen Editor!! :(

So ich nochmal, also das klappt irgendwie net, mit dem VBCrLf oder mit den anderen. Wenn ich die Datei danach mit Notepad öffne(nach dem schreiben natürlich ), hab ich nur immer so ein Schwarzes Viereck(da wo der Zeilenumbruch sein müsste). Hat noch jem. ne Idee?? l

Danke! :e@sy

Wie kann ich noch einen Zeilenumbruch nach dem Semikolon erzwingen?? in der TXT datei soll immer nach einem Semikolon ein Zeilenumbruch stattfinden!

stimmt ja

So weit so gut, ich speicere jetzt den DS in einer Variablen. s=DS-User=Operation= List;Domain= BB;Post-Office= CB;Object= Angelstein;Visibility= System;Last-Name= Angelstein;Network-ID= Angelstein.d233.g23.a2.c.ldsbb;First-Name= Renate;Phone= (0355) 1111-1111;Department= Abt. 233; ; so die Telefonnummer hab ich herausbekommen und zwar mit sub test s1=suche("phone",s) End Sub Function suche(ByVal kw As String, s As String) As String Dim i1 As Integer Dim i2 As Integer kw = kw & "= " i1 = InStr(pos, s, kw) If i1 < 1 Then Exit Function i2 = InStr(i1, s, ";") suche = Mid(s, i1 + Len(kw), i2 - i1 - Len(kw)) End Function wie kann ich die gefundene Tel. ändern und zurück schreiben?? ich hab die neue Nummer ja schon in der Variablen s2 .

Folgendes: In deiner txt datei steht folgender Datensatz DS-User= Operation= List; Domain= BB; Post-Office= CB; Object= Angelstein; Visibility= System; Last-Name= Angelstein; Network-ID= Angelstein.d233.g23.a2.c.ldsbb; First-Name= Renate; Phone= (0355) 1111-1111; Department= Abt. 111; ; DS-User= *nächster DS* Wie kann ich jetzt z.B. die Telefonnummer suchen und diese durch eine andere(hab ich einer Variable) ersetzen?? Thx im vorraus!

schon klar, habs einfach übersehen! DANKE!

Hi, ich will um diese Sub eine einfache Do Schleife legen, die den String(s) bis zum Ende durchsucht. suche ist eine Function. Wie mach ich das,?? Zur Zeit hört er immer nach dem ersten gefundenen "Last-Name" auf. Sub api_auslesen() Do pos = InStr(pos, s, "DS-User=") 'aus cmd1 If pos > 0 Then s = suche("Last-Name", s) pos = pos + 5 End If Loop While pos > 0 'aus cmd1 ENDE End Sub Function suche(ByVal kw As String, s As String) As String Dim i1 As Integer Dim i2 As Integer kw = kw & "= " i1 = InStr(pos, s, kw) If i1 < 1 Then Exit Function i2 = InStr(i1, s, ";") suche = Mid(s, i1 + Len(kw), i2 - i1 - Len(kw)) End Function