vb: zeichen in einer txt ersetzen

[Antibiotik]

hallo zusammen,

ich hab eine txt - datei und will jetzt in dieser datei bestimmte zeichen ersezten, z.B. name durch nachname.

also muss ich die datei einlesen, nach den zeichen suchen und ersezten

Open sPfad For Input As #filenr

replace...

aber irgendwie haut es nicht hin??

Ciao

Antibiotik

[-roTekuGeL-]

Willst du nicht erstmal den Inhalt der File in eine Variable laden, den text in der Variablen ändern und dann wieder zürückschreiben?

[Antibiotik]

hallo,

Original geschrieben von |roTekuGeL|

Willst du nicht erstmal den Inhalt der File in eine Variable laden, den text in der Variablen ändern und dann wieder zürückschreiben?

die txt hat insgesamt ca. 6000 Zeichen (mit Leerzeichen) bzw. 176 Zeilen!!

ist es net ein bißchen groß für ne variable??

Ciao

Antibiotik

[Goos]

Na 6000 is doch nicht wirklich viel!

[Antibiotik]

hallo,

Original geschrieben von Goos

Na 6000 is doch nicht wirklich viel!

kannst du dann ein bsp. machen wie ich des in eine variable einlese?!

Ciao

Antibiotik

[-roTekuGeL-]

Original geschrieben von Antibiotik

die txt hat insgesamt ca. 6000 Zeichen (mit Leerzeichen) bzw. 176 Zeilen!!

ist es net ein bißchen groß für ne variable??

man kann eine Datei auch Zeilenweise einlesen...

Dim dateinr As Integer

Dim temp As String

dateinr = FreeFile


Open "C:\TestDatei.txt" For Input As dateinr

 Do While Not EOF(dateinr)

  Input #dateinr, temp

    'String bearbeiten und zurückschreiben  

  Loop

 Close dateinr

[Antibiotik]

hallo,

wenn ich die txt datein im input modus öffne, dann muss ich die ja wieder schließen, im output modus öffnen und erst dann zurückschreiben, oder??

Ciao

Antibiotik

[-roTekuGeL-]

Original geschrieben von Antibiotik

ist es net ein bißchen groß für ne variable??

String-Datentyp

Es gibt zwei Arten von Zeichenfolgen: Zeichenfolgen variabler Länge und Zeichenfolgen fester Länge.

Zeichenfolgen variabler Länge können bis zu 2 Milliarden (oder 2^31) Zeichen enthalten.

Zeichenfolgen fester Länge können 1 bis etwa 64 KB (2^16) Zeichen enthalten.

Anmerkung Zeichenfolgen fester Länge mit dem AttributPublic können inKlassenmodulen nicht verwendet werden.

Die Codes für Zeichen vom DatentypString liegen im Bereich von 0 bis 255 (einschließlich). Die ersten 128 Zeichen (0 bis 127) entsprechen den Buchstaben und Symbolen auf einer US-amerikanischen Standardtastatur. Diese ersten 128 Zeichen stimmen mit den imASCII-Zeichensatz definierten Zeichen überein. Die zweiten 128 Zeichen (128 bis 255) sind Sonderzeichen, z.B. Buchstaben aus internationalen Alphabeten, Akzentzeichen, Währungssymbole und Symbole für mathematische Brüche. DasTypkennzeichen für String ist das Dollarzeichen ($).

Das erstmal dazu... und somit kannst du auch die ganze Datei auf einmal einlesen, dann bearbeiten und dann erst zurückschreiben

[Antibiotik]

hab die datei jetzt in einem string und versuch durch replace bestimmte inhalte zu ersetzen, funzt aber irgendwie net

Replace sInhalt, "microsoft", "Linux",

Ciao

Antibiotik

[-roTekuGeL-]

Dim strVar As String


strVar = "Microsoft"


strVar = Replace(strVar, "Microsoft", "Linux")


MsgBox strVar

[Antibiotik]

Ok, danke schön

etz funzt es!!

Ciao

Antibiotik