| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Xolios
aka Ray
Anmeldungsdatum: 07.12.2004
Beiträge: 589
Wohnort: Wildeshausen
|
 Verfasst am: 17.03.2005, 10:51 Titel: Einzelnen Buchstaben auslesen |
 |
|
Hallo.
In einer Text steht z.B.
[Test]
hallo
[Test2]
hallo
Jetzt möchte ich per OPEN das erste zeichen in der ersten zeile
auslesen und in ne Variable speichern.
dann das erste
und jetzt in der 4 Zeile das erste zeichen.
u.s.w.
Könntet ihr mir das so erklären wie ihr es einem
Vollkommenden Torfkopf erklären würdet?
 
Gruß
Ray
_________________
www.ray-earth.de
Anm.: Neue ICQ |
|
| Nach oben |
|
 |
Grey Fox
Anmeldungsdatum: 16.02.2005
Beiträge: 13
|
| Verfasst am: 17.03.2005, 14:56 Titel: |
|
|
Wie wäre es wenn du dir einfach jede Zeile in einen "Auslagerungs String packst" und diesen dann mit der MID$ Funktion auseinander nimmst???
Dann Auslagerungs String wieder Neubeschreiben
und das eben mit jeder Zeile!
Wenn du erst wieder in der 4 Zeile einen Buchstaben brauchst, kannste ja parallel einen Zähler laufen lassen... |
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 17.03.2005, 17:27 Titel: |
|
|
Lese einfach eine Zeile als String ein, und speichere dann das erste
Zeichen mit Hilfe von LEFT$() in einen neuen String.
| Code: |
DIM ErstesZeichen(4) AS STRING * 1
OPEN FILENAME$ FOR INPUT AS #1
FOR I = 1 TO 4
LINE INPUT #1, Zeile$
ErstesZeichen(I) = LEFT$(Zeile$, 1)
NEXT I
CLOSE #1
FOR I = 1 TO 4
PRINT "Das erste Zeichen der"; i; ". Zeile: "; ErstesZeichen(I)
NEXT I
END
|
LEFT$(String, n)
String ist der entsprechende String, auf den LEFT$ angewendet werden soll.
n ist die Anzahl der Buchstaben, die LEFT$() von Position n im String
nach links zurückliefern soll.
jb |
|
| Nach oben |
|
|
Xolios
aka Ray
Anmeldungsdatum: 07.12.2004
Beiträge: 589
Wohnort: Wildeshausen
|
| Verfasst am: 17.03.2005, 17:41 Titel: |
|
|
Hallo.
Sorry hab was verwechselt:
für VB
Gruß
Ray
_________________
www.ray-earth.de
Anm.: Neue ICQ |
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 17.03.2005, 19:22 Titel: |
|
|
Dann tipp den Code in VB ein. 
(Müsste eigentlich klappen)
jb |
|
| Nach oben |
|
|
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
|
| Nach oben |
|
|
Xolios
aka Ray
Anmeldungsdatum: 07.12.2004
Beiträge: 589
Wohnort: Wildeshausen
|
| Verfasst am: 18.03.2005, 09:00 Titel: |
|
|
Hallo.
Stimmt!
Daran habe ich nicht gedacht
Danke Sebastian
Gruß
Ray
_________________
www.ray-earth.de
Anm.: Neue ICQ |
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 18.03.2005, 16:23 Titel: |
|
|
| Ray hat Folgendes geschrieben: |
Danke Sebastian
|
Und was ist mit mir?
Bekomme ich kein Dankeschön, ich hab doch das Gleiche gesagt. 
jb |
|
| Nach oben |
|
|
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 18.03.2005, 19:23 Titel: |
|
|
Aber warum immer zu mir???
jb |
|
| Nach oben |
|
|
Xolios
aka Ray
Anmeldungsdatum: 07.12.2004
Beiträge: 589
Wohnort: Wildeshausen
|
| Verfasst am: 19.03.2005, 11:29 Titel: |
|
|
Nicht das mit jb nachher böse ist
Danke jb
Gruß
Ray
_________________
www.ray-earth.de
Anm.: Neue ICQ |
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 19.03.2005, 15:32 Titel: |
|
|
Vielen Dank, Ray
jb |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
