Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
base_1001
Tutorial Leser
Tutorial Leser

Anmeldedatum: 01.05.2008
Beiträge: 22

TextDatei aus Zeile Zeichen entfernen
Verfasst am: 26.09.2008, 19:48

Hallo Leutz
Ich wollte ein Prog schreiben, dass aus eine Text datei einliest. Dann in in jeder Zeile, von 1. Teichen bis zum 17. Zeichen alles entfernt.
Sagen wir wir haben in jeder Zeile sowas stehen:

asdasdasdsfasf Hallo guten Tag
asdasdasdsfasf Hey Ho wie gehts
asdasdasdsfasf Juten Tach
asdasdasdsfasf Ja das Ananas

Dann will ich, dass es immer "asdasdasdsfasf" das entfernt, und abspeichert. Kann da jemand behilflich sein?

Danke schonmal im voraus
 
LooneyToons
Poster
Poster

Anmeldedatum: 01.05.2008
Beiträge: 125


Verfasst am: 26.09.2008, 19:54

ich könnte dir jetzt den source Code geben , aber da lernste ja nix xD

also
Du liest die Datei in einen String ein.
Dannach Replacest du die sachen die du weg haben willst mit dem command
-Replace()
Dannach schreibste wieder in die datei rein x)
 
base_1001
Tutorial Leser
Tutorial Leser

Anmeldedatum: 01.05.2008
Beiträge: 22


Verfasst am: 26.09.2008, 19:58

Ja, ich hatte vor 6 Monaten noch VB programmiert. Aber hab alles wieder vergessen... Ich brauch das unbedingt für eine Datei...

Ich glaub da war irgendwas mit
Open Dateiname for Input as #1
usw...

Das mit dem SourceCode könnte mir helfen... =)

Edit:
Ein Problem ist auch noch, dass die Zeichen unterschiedlich sind.

001asdasdasd002 Hallo Guten Tag
001asdahhhsd002 Hallo Guten Tag
001asdasdasd002 Hallo Guten Tag
0015asasdasd002 Hallo Guten Tag
001asda5dhsd002 Hallo Guten Tag

Da am Anfang steht immter sowas, aber es fängt immer z.B mit 001 an, und hört mit 002 auf. Aber mittendrin steht immer etwas anderes.
 
sollniss
Überflieger
Überflieger

Anmeldedatum: 01.05.2008
Beiträge: 699


Verfasst am: 26.09.2008, 20:42

Gibts in VB6 nicht sowas wie Substring oder Remove?
Damit wärs ganz easy, weils ja immer 17 Zeichen sind.
 
christopher.g
Überflieger
Überflieger

Anmeldedatum: 03.05.2008
Beiträge: 565


Verfasst am: 26.09.2008, 20:56

und was hälst du von mid$??
ganz leicht

Visual Basic: [code]
Dim data As String
text1.Text = Mid$(data, 17, Len(data))

[/code]

heisst...
data = der string den du eingelesen hast
17 = der startpunkt
len(data) = gibt die länge des strings zurück... somit hast du anfangpunkt und endpunkt und kannst den teil auslesen den du brauchst
 
sollniss
Überflieger
Überflieger

Anmeldedatum: 01.05.2008
Beiträge: 699


Verfasst am: 27.09.2008, 11:40


Das is doch das selbe wie Substring. Very Happy
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: textdatei, entfernen, zeichen, zeile

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Überprüfen ob datei existiert 854 29.04.2007, 17:39
Keine neuen Beiträge Datei mit Listbox erstellen 742 28.03.2007, 13:39
Keine neuen Beiträge Mit Dateien arbeiten: Lehrzeile in Datei schreiben 601 19.03.2007, 16:45
Keine neuen Beiträge Textbox an php datei 753 23.02.2007, 21:09
Keine neuen Beiträge Datei einlesen.... 831 28.01.2007, 05:21
 


[ Time: 0.2180s ][ Queries: 95 (0.1366s) ][ GZIP on - Debug on ]