Zum Inhalt springen

VBA: Zugriff und schreiben in eine Txt datei!


Der_DUD

Empfohlene Beiträge

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!

Link zu diesem Kommentar
Auf anderen Seiten teilen

Versuchs mal hiermit:

filenr = FreeFile

Open pfaddatei For Input As #filenr

Line Input #filenr, zeile

While Not EOF(filenr)

Line Input #filenr, zeile

If Instr(1,zeile,"Phone") Then

Write #filenr, telefon_var

End if

Wend

Weiß nicht ob's funktioniert, probiers aber mal aus. Sag bescheid, ob's richtig war.

Gruß

JayN

Link zu diesem Kommentar
Auf anderen Seiten teilen

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 .

Link zu diesem Kommentar
Auf anderen Seiten teilen

Variable & vbCrLf ...

folgende Konstanten sind möglich:

vbCrLf --> Kombination aus Wagenrücklauf und Zeilenvorschub

vbCr --> Wagenrücklaufzeichen

vbLf --> Zeilenvorschubzeichen

vbNewLine --> Plattformspezifisches Zeilenumbruchzeichen; je nachdem, welches für die aktuelle Plattformr geeignet ist

JayN

Link zu diesem Kommentar
Auf anderen Seiten teilen

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

Link zu diesem Kommentar
Auf anderen Seiten teilen

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...