bestimmte Zeichen aus txt file entfernen
- VB6
Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von caccao.
-
Dazu musst Du den Text in einen String einlesen, die Zeichen ersetzen und den Text wieder speichern.caccao schrieb:
entfernen
Wie lang ist die Datei?
Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
Sorry, das ist VB.NET-Code.caccao schrieb:
VB6
Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
Hallo Cacao,
probier' mal dies:
Visual Basic-Quellcode
- Dim Txt$, Pfad1$
- Pfad1 = "C:\Textfile.txt"
- If Dir$(Pfad1) = "" Then
- MsgBox "Datei nicht gefunden:" & vbCr & _
- Pfad1, vbExclamation + vbOKOnly
- Else
- Open Pfad1 For Binary As #1
- Txt = Space$(LOF(1))
- Get #1, , Txt
- Close #1
- Txt = Replace(Txt, "@", "")
- Txt = Replace(Txt, "{", "")
- Kill Pfad1
- Open Pfad1 For Binary As #1
- Put #1, , Txt
- Close #1
- End If
Gruss,
Neptun -
Stadt "" sollte man Nothing oder String.Empty verwenden.
LG, J Herbrich -
gibt es leider bei VB6 nicht.J.Herbrich schrieb:
Nothing oder String.EmptyFalls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
Hat VB6 keine NULL Variablen??
-
Doch. Je nach Datentyp natürlich unterschiedlich. Bei Strings wäre es
vbNullstring. Empfehle ich auch statt"".
-
Habe ich's doch gesagt, weil mir klingt es ein wenig ungloisch keine Default / Null Konstanten zu haben die anzeigen dass eine Variable lehr ist.
Lg, J Herbrich
-
Ähnliche Themen
-
5 Benutzer haben hier geschrieben
- RodFromGermany (3)
- J.Herbrich (3)
- caccao (3)
- Neptun (1)
- Marcus Gräfe (1)
