 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
s-m-n
Anmeldungsdatum: 03.10.2005
Beiträge: 106
Wohnort: Pietling in Oberbayern / Deutschland
|
 Verfasst am: 28.12.2006, 14:54 Titel: [erledigt] Invalid Data Types |
 |
|
Hi,
was ist an diesem
| Code: | dim as string zeile(2550), lin(2550)
dim as integer zeilen, a, b, c, d, e, f, g, h
'open "test.txt" for input as #1
'
'while not eof(1)
' line input #1, zeile(zeilen)
'wend
'
'close
zeilen = 4
zeile(0) = "abcdefgh"
zeile(1) = "xäxxxxx"
zeile(2) = "xxxüxxx"
zeile(3) = "öxxxxxx"
zeile(4) = "xxßxxxx"
for i = 0 to zeilen
a = instr(zeile(i), "ä")
b = instr(zeile(i), "ü")
c = instr(zeile(i), "ö")
d = instr(zeile(i), "ß")
e = instr(zeile(i), "Ä")
f = instr(zeile(i), "Ö")
g = instr(zeile(i), "Ü")
select case a
case is <> 0: lin(i) = mid(zeile(i), a, 1) = chr(asc("„"))
case 0: continue for
end select
select case b
case is <> 0: lin(i) = mid(zeile(i), b, 1) = chr(asc("�"))
case 0: continue for
end select
select case c
case is <> 0: lin(i) = mid(zeile(i), c, 1) = chr(asc("”"))
case 0: continue for
end select
select case d
case is <> 0: lin(i) = mid(zeile(i), d, 1) = chr(asc("á"))
case 0: continue for
end select
select case e
case is <> 0: lin(i) = mid(zeile(i), e, 1) = chr(asc("Ž"))
case 0: continue for
end select
select case f
case is <> 0: lin(i) = mid(zeile(i), f, 1) = chr(asc("™"))
case 0: continue for
end select
select case g
case is <> 0: lin(i) = mid(zeile(i), g, 1) = chr(asc("š"))
case 0: continue for
end select
print zeile(i)
print lin(i)
next |
falsch? Der Compiler gibt mir "Invalid Data Types" zurück. Hab ich etwas nicht definiert oder nur Tomaten auf den Augen? 
Danke für eure Hilfe!
Gruß s-m-n
Zuletzt bearbeitet von s-m-n am 31.12.2006, 14:50, insgesamt einmal bearbeitet |
|
| Nach oben |
|
 |
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 28.12.2006, 15:24 Titel: |
|
|
| Code: | | case is <> 0: lin(i) = mid(zeile(i), a, 1) = chr(asc("„")) |
C++ Style: Möglichst viel in eine Zeile bis es keiner mehr Lesen kann ...
Was soll das
| Code: | | lin(i) = mid(zeile(i), a, 1) = chr(asc("„")) |
bewirken?
Freebasic sieht einen Vergleich
| Code: | | mid(zeile(i), a, 1) = chr(asc("„")) |
und will das Reslutat (0 oder -1) in
speichern. (also eine Zahl in einem String -> geht nicht)
Das willst du sicher nicht, aber genau das sagst du dem Compiler.
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 29.12.2006, 21:03 Titel: |
|
|
Das Wichtigste hat Michael Frey ja schon geschrieben..
Ich würde die Prüfung folgendermaßen schreiben: | Code: | | If Instr(Zeile(i), "ä") Then Lin(i)=.. |
Die Umwandlung von Umlauten habe ich schon hier erledigt..
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
s-m-n
Anmeldungsdatum: 03.10.2005
Beiträge: 106
Wohnort: Pietling in Oberbayern / Deutschland
|
| Verfasst am: 31.12.2006, 14:50 Titel: |
|
|
| Zitat: | | Die Umwandlung von Umlauten habe ich schon hier erledigt.. |
AAAARGH! Da will man ausnahmsweise mal was SINNVOLLES coden und dann gibts das schon! Zum Verrücktwerden!  
Damit hat sich die Geschichte erledigt. Meine Sources werden gelöscht!
Gruß s-m-n und guten Rutsch an alle! |
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 31.12.2006, 15:23 Titel: |
|
|
| s-m-n hat Folgendes geschrieben: | Da will man ausnahmsweise mal was SINNVOLLES coden und dann gibts das schon! Zum Verrücktwerden!
Damit hat sich die Geschichte erledigt. Meine Sources werden gelöscht! |
..ich nehm das jetzt mal als Kompliment und bedanke mich..
..gibt mir einen kleinen psychischen Auftrieb zum Jahresende 
Dir auch einen guten Rutsch etc.
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
