| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
roadrunner78
Anmeldungsdatum: 25.06.2007
Beiträge: 6
Wohnort: Hamburg
|
 Verfasst am: 03.07.2007, 17:21 Titel: INSTR - Funktion |
 |
|
Kann ich mit der INSTR- Funktion auch nach einen INTIGER -Wert suchen?
Ich möchte mehrere Zeilen aus einer Textdatei herrauskopieren und den einzigen Wert nach dem ich logisch filtern kann wäre ein INTIGER -Wert
den ich dann Hochzählen lassen könnte.
Danke für Tipps
roadrunner78
_________________
Schade das der Recher immer nur das macht was man ihm sagt, und nicht das was man will....... |
|
| Nach oben |
|
 |
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
| Verfasst am: 03.07.2007, 17:29 Titel: |
|
|
inTiger, das weckt den Tiger in dir x)
ich lass das mal als Integer durchgehen...
kommt halt drauf an wie du ihn speicherst.
bsps. könntest du mithilfe von Chr(xx) immerhin Werte von 0-255 filtern.
Oder du speicherst ihn als String, somit kannst du mit Str nach ihm suchen. |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 03.07.2007, 17:38 Titel: |
|
|
Wenn Du nach einer Zahl in einem String suchen willst koenntest das vielleicht so machen..
If INSTR$(String$,LTrim$(Str$(Zahl)))>0 Then 'Zahl gefunden!
_________________
 |
|
| Nach oben |
|
|
roadrunner78
Anmeldungsdatum: 25.06.2007
Beiträge: 6
Wohnort: Hamburg
|
| Verfasst am: 03.07.2007, 18:10 Titel: |
|
|
 danke das war der Schlüssel zum Problem,
mit STR funzt das super
_________________
Schade das der Recher immer nur das macht was man ihm sagt, und nicht das was man will....... |
|
| Nach oben |
|
|
roadrunner78
Anmeldungsdatum: 25.06.2007
Beiträge: 6
Wohnort: Hamburg
|
| Verfasst am: 03.07.2007, 18:16 Titel: |
|
|
Sieht jetzt zwar noch nich so doll aus aber macht das was es soll
| Code: | fundstellen = 0
'OPEN "B.TXT" FOR INPUT AS #3
OPEN "KURZ.TXT" FOR OUTPUT AS #4
FOR suchwort4% = 1001 TO 1376
OPEN "B.TXT" FOR INPUT AS #3
fundstellen = 0
DO UNTIL EOF(3)
LINE INPUT #3, zeile
IF INSTR(UCASE$(zeile), UCASE$((STR$(suchwort4)))) THEN
fundstellen = fundstellen + 1
IF fundstellen = 1 THEN
PRINT #4, zeile
PRINT #4, ""
END IF
END IF
LOOP
CLOSE #3
'PRINT #4, suchwort4%
IF fundstellen > 0 THEN
PRINT #4, "Aufgetreten : "; LTRIM$(STR$(fundstellen)) + " x"
END IF
NEXT suchwort4%
CLOSE #4
'CLOSE #3 |
_________________
Schade das der Recher immer nur das macht was man ihm sagt, und nicht das was man will....... |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
