Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
psygate
Anmeldungsdatum: 05.04.2005 Beiträge: 304 Wohnort: Wien und der Computer
|
Verfasst am: 22.05.2005, 14:23 Titel: |
|
|
also gut: so sollte der code mal aussehen:
Code: |
Input "Wo soll das Spiel gespeichert werden?",pfad
indirection(pfad)=save |
oder
Code: |
Spiel speichern unter dem Namen:",name
output #1 indirection(name)=save
|
|
|
Nach oben |
|
 |
jb

Anmeldungsdatum: 14.01.2005 Beiträge: 2010
|
Verfasst am: 22.05.2005, 14:51 Titel: |
|
|
Tut mir Leid, aber ich versteh's nicht.
Könntest du das vielleicht etwas genauer erklären?
jb |
|
Nach oben |
|
 |
dreael Administrator

Anmeldungsdatum: 10.09.2004 Beiträge: 2529 Wohnort: Hofen SH (Schweiz)
|
Verfasst am: 22.05.2005, 14:59 Titel: |
|
|
Google, unser bester Freund und Helfer für Dinge, die man noch nicht kennt und sich selber erst einmal schlau machen muss, liefert mir u.a. folgenden Link:
http://developer.com/open/article.php/630631
Es geht hier also um eine recht spezielle Sprachkonstruktion.
@psygate: So etwas gibt es in QB definitiv nicht. Aber wenn Du uns das Problemumfeld erläuterst, können wir Dir helfen, eine geeignete Ersatzkonstruktion in QB zu finden, denn vielfach lässt sich ein bestimmtes Problem auch ganz anders lösen. _________________ Teste die PC-Sicherheit mit www.sec-check.net |
|
Nach oben |
|
 |
helium

Anmeldungsdatum: 10.09.2004 Beiträge: 397 Wohnort: Leverkusen
|
Verfasst am: 23.05.2005, 13:28 Titel: |
|
|
Also so wie ich das sehe, ist das, was hier gesucht wird, eine einfache Map/assoziatives Array/... . Eignen würden sich also Hashs oder Suchbäume. Für den anfang würde es aber auch schon ein simples Array tun, wobei die Suche nach Einträgen dann natürlich nicht besonders schnell ist.
Code: |
type Mapdata
key as string * 30
value as string * 30
end Type
dim meinFeld(100) as Mapdata
Sub insert (wasKey as String, wasValue as String, inWen() as MapData)
For i = 0 to UBound (inWen)
If inWen(i).key = wasKey Then
inWen(i).value = wasValue
Exit Sub
Elseif inWen(i).key = "" Then
inWen(i).value = wasValue
inWen(i).key = key
Exit Sub
End If
Next
Print "Fehler: kein freier Eintrag gefunden"
End Sub
Function getValue (key as String, ausWem() as MapData)
For i = 0 to UBound (inWen)
If inWen(i).key = was.key Then
getValue = ausWem(i).value
Exit Function
End If
Next
Print "Fehler: Schlüssel nicht vorhanden"
End Function
'------------------------
dim indirection(100) as Mapdata
Input "Wo soll das Spiel gespeichert werden?",pfad
insert pfad, save, indirection
'---- später ----
Print "save von pfad ist: "; getValue(pfad, indirection)
|
_________________ Bevor Sie aufhören sich körperlich zu betätigen sollten Sie ihren Doktor befragen. Körperliche Inaktivität ist abnormal und gefährlich für Ihre Gesundheit. |
|
Nach oben |
|
 |
Heizi

Anmeldungsdatum: 19.01.2005 Beiträge: 309
|
Verfasst am: 24.05.2005, 17:03 Titel: |
|
|
ich weiss nicht ob die das hilft aber es könnte ansatzweise so gehen:
zahl(ASC(1.Buchstabe)-65,ASC(2.Buchstabe)-65,ASC(3.Buchstabe)-65...)=45
du müsstest dann dem String eine feste Länge geben, wie z.B. DIM AS STRING * 5 und das dann mit dem asc 5 mal wiederholen.
Das mit dem 65 ist weil ASC("A")=65
und das mit dem n ten Buchstaben geht irgendwie mit MID$ |
|
Nach oben |
|
 |
|