| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Dark_King
Anmeldungsdatum: 24.07.2006
Beiträge: 109
Wohnort: Neustetten - BW
|
 Verfasst am: 30.09.2006, 15:06 Titel: Buchstabenanzahl einer Variablen |
 |
|
Hallo,
ich würde gern wissen, wie man die Buchstabenanzahl eines variablen Wortes, mit INPUT eingegeben, auslesen kann.
mfg
Dark_King
PS: Ich will das eingegeben Wort als Filename verwenden und der darf nicht länger als 8 Buchstaben sein... |
|
| Nach oben |
|
 |
ebrady
Anmeldungsdatum: 06.07.2005
Beiträge: 45
|
| Verfasst am: 30.09.2006, 15:31 Titel: |
|
|
Hallo!
Die Funktion LEN gibt dir die Länge eines Strings zurück.
Also so dann ungefähr:
| Code: |
DO
CLS
LOCATE [],[]
INPUT "Dateiname:",dateiname$
LOOP UNTIL LEN(dateiname$)<9
|
Alternativ könntest du dir eine eigene Input-Routine mit INKEY$ schreiben, in der du dann zusätzlich noch alle Sonderzeichen verbieten lassen kannst, die nicht in einen DOS-Dateinamen gehören.
Zuletzt bearbeitet von ebrady am 30.09.2006, 15:44, insgesamt einmal bearbeitet |
|
| Nach oben |
|
|
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
| Verfasst am: 30.09.2006, 15:35 Titel: |
|
|
Hallo.
Grundsätzlich geht das so:
| Code: | INPUT "Dateiname: ", d$
IF LEN(d$) > 12 THEN BEEP '8Z für Dateiname, 1Z für Punkt, 3Z für Endung |
Für dein Vorhaben ist Folgendes ein bisschen besser:
| Code: | DIM datei$, endung$
DO
INPUT "Dateiname: ", d$
IF d$ = "" THEN END
IF INSTR(d$, ".") THEN
datei$ = LEFT$(d$, INSTR(d$, ".")-1)
endung$ = RIGHT$(d$, LEN(d$)-INSTR$(d$,"."))
IF LEN(datei$) > 8 OR LEN(endung$) > 3 THEN
PRINT "Ungueltiger Dateiname!"
ELSE
EXIT DO
END IF
ELSE
PRINT "Ungueltiger Dateiname!"
END IF
LOOP
PRINT "Der Dateiname lautet: "; chr$(34); datei$; "."; endung$; chr$(34)
SLEEP: END |
Viele Grüße!
Sebastian
_________________
Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen! |
|
| Nach oben |
|
|
Dark_King
Anmeldungsdatum: 24.07.2006
Beiträge: 109
Wohnort: Neustetten - BW
|
| Verfasst am: 30.09.2006, 17:37 Titel: |
|
|
klappt bestens thx
mfg
Dark_King
_________________
 |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
