| |
Visual-Basic EinsteigerText zwischen zwei Zeichen kopieren | | | Autor: M.T.K. | Datum: 18.09.01 16:49 |
| Ich habe folgendes Problem:
Ich habe eine Textdatei die z.B. so aussieht:
Hier steht text 1
/hier steht Text 2
Hier steht Text 3
/hier steht text 4
hier steht Text 5
Jetzt möchte ich in einer Textbox nur die Einträge zwischen / und angezeigt bekommen. Also in etwa so:
hier steht text 2 hier steht text 4
Kann mir irgendjemand sagen ob und wen ja, wie das geht? | |
Re: Text zwischen zwei Zeichen kopieren | | | Autor: Dieter (Moderator) | Datum: 18.09.01 17:02 |
| Hallo M.T.K.,
ich würde da so realisieren:
<code>Dim F As Integer
Dim sLine As String
Dim sFilename As String
sFilename = "DeineDatei.txt"
Text1.Text = ""
F = FreeFile
Open sFilename For Input As #F
While Not Eof(F)
Line Input #F, sLine
If Left$(sLine, 1) = "\" Then
Text1.Text = Text1.Text & sLine & vbCrLf
End If
Wend
Close #F</code> Cu
Dieter | |
Danke | | | Autor: M.T.K. | Datum: 18.09.01 17:17 |
| Vielen Dank für den Tip. Werde sofort ausprobieren ob er funktioniert. | |
GEHT DOCH NICHT | | | Autor: M.T.K. | Datum: 18.09.01 17:55 |
| Geht doch nicht!
Für das Beispiel das ich angegeben habe funktioniert der Code aber um genau zu sein müsste mein Beispiel so aussehen:
hier steht Text1 /hier steht text2 hier steht text3 /hier steht text 4 hier steht text 5
(Die Texte zwischen / gehen über mehrere Zeilen)
Als Ergebniss soll immer noch folgendes rauskommen:
hier steht text2 hier steht text 4
Ganz toll fände ich es noch wenn man die Texte in verschiedenen Textboxen angeben könnte. So in etwa:
Textbox1:
hier steht text2
Textbox3:
hier steht text 4
Ich hoffe, dass es auch dafür eine Möglichkeit gibt. | |
Re: GEHT DOCH NICHT | | | Autor: Tolwyn | Datum: 18.09.01 18:49 |
| Hi,
möchtest Du alle Zeilen bekommen, die ein "/" vorangestellt haben, oder möchtest Du den Text zwischen den 2 "/" haben ?!? Wie soll ein Zeilenumbruch behandelt werden ?!?
Damit Du die Texte immer richtig auslesen kannst, musst Du eindeutige Regeln haben, nach denen der Code entscheiden kann was ausgegeben werden soll und was nicht.
Cu
Tolwyn | |
Ganz Ausführlich | | | Autor: M.T.K. | Datum: 18.09.01 20:54 |
| Die Textdatei ist eigendlich ein HTML-Quellcode der wie folgt aussieht: (Der Html-Code ist in der Orginalform ein fließtext ohne Absätzte)
---------------------------------------------------
AKlasseGruppe2AlzenauA-Klasse, Gruppe 2, Alzenau
TuS Sommerkahl TSG Kälberau | 3:2 | Viktoria Brücken TV Blankenbach | 3:1 | SC Geiselbach VfL Krombach | 3:0 | SV Albstadt DJK Kahl | 2:1 | SV Dörnsteinbach KSV Heinrichsthal | 2:6 | FC Laudenbach FSV Michelbach | 4:3 | FSV Feldkahl Bavaria Wiesen | 1:3
|
1. | (1.) | SC Geiselbach | 6 | 5 | 1 | 0 | 22:3 | 16 | 2. | (2.) | Viktoria Brücken | 6 | 5 | 0 | 1 | 24:6 | 15 | 3. | (3.) | Bavaria Wiesen | 6 | 5 | 0 | 1 | 15:6 | 15 | 4. | (8.) | KSV Heinrichsthal | 5 | 3 | 1 | 1 | 17:13 | 10 | 5. | (7.) | TuS Sommerkahl | 5 | 3 | 1 | 1 | 14:12 | 10 | 6. | (4.) | FSV Feldkahl | 6 | 3 | 0 | 3 | 20:15 | 9 | 7. | (5.) | DJK Kahl | 5 | 2 | 1 | 2 | 12:8 | 7 | 8. | (6.) | VfL Krombach | 5 | 2 | 1 | 2 | 7:7 | 7 | 9. | (9.) | TSG Kälberau | 6 | 2 | 1 | 3 | 10:16 | 7 | 10. | (10.) | TV Blankenbach | 6 | 1 | 3 | 2 | 11:9 | 6 | 11. | (11.) | Rot-Weiß Daxberg | 5 | 1 | 1 | 3 | 5:13 | 4 | 12. | (13.) | SV Albstadt | 6 | 1 | 1 | 4 | 9:20 | 4 | 13. | (15.) | FC Laudenbach | 4 | 1 | 0 | 3 | 12:14 | 3 | 14. | (12.) | SV Dörnsteinbach | 5 | 1 | 0 | 4 | 9:28 | 3 | 15. | (14.) | FSV Michelbach | 6 | 0 | 1 | 5 | 8:25 | 1 |
---------------------------------------------------
Im Grunde stehen in diesem Code 2 Tabellen mit mehreren Spalten und Zeilen. Ich möchte jetzt dass es mir alles was zwischen dem 1. steht, und alles was zwischen dem 2. steht in zwei verschiedenen Textboxen ausgibt. So dass ich den Kopf und die Tabellen-Eigenschaften dann selber festlegen kann, indem ich vor dem Text zwischen einfach den richtig Html-Code kopiere und dann als neue Html-Datei speichern kann.
Am Ende soll das ganze in etwa so:
------- Hier wird der erste Teil eingefügt --------
------- Hier wird der zweite Teil eingefügt --------
Ich hoffe das man jetzt besser versteht was ich meine, oder vieleicht auch nicht (?) | |
Fehler beim letzten Beitrag | | | Autor: M.T.K. | Datum: 18.09.01 21:07 |
| Den Text den ich schreiben wollte kann ich nicht in dieses Forum schreiben (wegen den vielen Html-Befehlen). Deswegen habe ich das ganze unter "http://www.jbj-vs.de/Manuel/vb.html" gestellt. | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevOutBar 4.0
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|