| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
rix
Anmeldungsdatum: 20.03.2007
Beiträge: 20
|
 Verfasst am: 30.03.2007, 15:07 Titel: Konfigurationsdatei auslesen |
 |
|
Hallo liebe Leutz,
leider hat mich die Hilfe von Basic und die Forensuche nicht weiter gebracht.
Ich habe eine Datei, die ich auslesen möchte und Variablen einen Wert zu weisen.
z.B.
konfig-datei
task: bla.exe
time: 600
mein code sieht so aus ...
| Code: |
OPEN INI$ FOR INPUT SHARED AS #98
DO
INPUT #98, ZEILE$
SELECT CASE ZEILE$
CASE ZEILE$[1:4]="task"
TASK$ = ZEILE$[7:LEN(ZEILE$)]
CASE ELSE ZEILE$[1:4]="time"
ZEIT$ = ZEILE$[8:LEN(ZEILE$)]
END SELECT
LOOP UNTIL (EOF(98))
|
Ich bin ein anderes OS und Basic gewöhnt. Leider funktioniertder o.g. Code nicht unter Windows. Der Compiler meckert bei [7:LEN(.....)].
Wie geht denn sowas unter Windows/DOS?
THX an Euch!
P.S Die Datei ist eine ganz normale sequentielle Datei. |
|
| Nach oben |
|
 |
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
|
| Verfasst am: 30.03.2007, 15:44 Titel: |
|
|
Ich vermute, du benötigst den String vom a-ten bis zum b-ten Zeichen? Das geht mit MID($):
| Code: | | TASK$ = MID$(ZEILE$, 7, LEN(ZEILE$)) |
In diesem Fall ginge auch einfach
| Code: | | TASK$ = MID$(ZEILE$, 7) |
der String ab Zeichen 7.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.
Zuletzt bearbeitet von nemored am 30.03.2007, 15:45, insgesamt einmal bearbeitet |
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 30.03.2007, 15:45 Titel: Re: Konfigurationsdatei auslesen |
|
|
| rix hat Folgendes geschrieben: | | Code: |
OPEN INI$ FOR INPUT SHARED AS #98
DO
INPUT #98, ZEILE$
SELECT CASE ZEILE$
CASE ZEILE$[1:4]="task"
TASK$ = ZEILE$[7:LEN(ZEILE$)]
CASE ELSE ZEILE$[1:4]="time"
ZEIT$ = ZEILE$[8:LEN(ZEILE$)]
END SELECT
LOOP UNTIL (EOF(98)) |
|
| Code: |
Open INI$ For Input As #98
Do
Input #98, Zeile$
Select Case lcase(Mid(Zeile$, 1, 4))
Case "task"
Task$ = Mid(Zeile$, 7)
Case "time"
Zeit$ = Mid(Zeile$, 8)
End Select
Loop Until Eof(98)
Close #98 |
ohne worte..
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
rix
Anmeldungsdatum: 20.03.2007
Beiträge: 20
|
| Verfasst am: 30.03.2007, 21:22 Titel: |
|
|
Ich danke Euch beiden,
genau das habe gebraucht!   |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
