Fehler bei auslesen einer datei
Übersicht
BlitzBasic Beginners-Corner
SamqBetreff: Fehler bei auslesen einer datei |
 Do, Nov 29, 2007 20:50Antworten mit Zitat 
|
|
|---|---|---|
|
Was ist hier falsch?
Code: [AUSKLAPPEN] testmenue=CreateMenu("Meine Freunde",12,testmenud) CreateMenu "Liste Download",233,testmenue CreateMenu ("",999,testmenue) If FileType("friend.dat") <> 1 bookfile = WriteFile("friend.dat") Read bookname$ Read bookURL$ While bookname$ <> "END" WriteLine bookfile,bookname$ WriteLine bookfile,bookURL$ Read bookname$ Read bookURL Wend CloseFile bookfile EndIf ;read the bookmarks into the bookmark menu Global bookf=500 bookfile = ReadFile("friend.dat") While Not Eof(bookfile) bookname$ = ReadLine(bookfile) bookURL$ = ReadLine(bookfile) If bookURL<>"" CreateMenu (bookname,bookf,testmenue) bookf = bookf +1 EndIf Wend CreateMenu("",666,testmenud) .............................. .............................. .............................. Case 113 Notify "unwichtig" End End Select End Select If FileType("friend.dat") <> 1 bookfile = WriteFile("friend.dat") Read bookname$ Read bookURL$ While bookname$ <> "END" WriteLine bookfile,bookname$ WriteLine bookfile,bookURL$ Read bookname$ Read bookURL Wend CloseFile bookfile EndIf ;read the bookmarks into the bookmark menu bookf=500 bookfile = ReadFile("friend.dat") While Not Eof(bookfile) bookname$ = ReadLine(bookfile) bookURL$ = ReadLine(bookfile) If bookURL<>"" While kkk = 0 If KeyDown (1) Then End e = WaitEvent () Select e Case $401 Select EventSource () Case bookf Notify (bookname)+Chr$(10)+Chr$(10)+"Freund gewählt" bookf = bookf +1 End Select End Select Wend End .bookdata Irgendwie kommt immer ein fehler wenn ich die Freundeliste anklicke also im menü list er die Datei richtig aus , nur kann ich keine aktion dazu bilden. die Friend.dat sieht so aus FREUNDNAHME FREUNDADRESSE |
||
Dreamora |
Do, Nov 29, 2007 21:36 Antworten mit Zitat
|
|
|---|---|---|
|
Versuch dir selber mal die frage zu beantworten, was der Code tun soll.
Dann wirst du vermutlich selbst dahinter kommen, wenn du dir überlegst warum du writeline und dann read machst oder anders: was schreibst du du da und wohin? Solange du das nicht siehst was da gerade falsch läuft, fürchte ich gibt es grundlegenderes wissen dass du dir erst erarbeiten musst. |
||
| Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen. | ||
Samq |
Do, Nov 29, 2007 23:05 Antworten mit Zitat
|
|
|---|---|---|
|
Naja der Menüteil macht ja sein teil richtig es geht ja um die Case Funktionen die die daten aus der datei ladet...
Case bookf =die Nr des menüs Notify (bookname)+Chr$(10)+Chr$(10)+"Freund gewählt" = Adresse die im menü gewählt wurde bookf = bookf +1 = Menü um 1 erhöhen um den nächsten datensat auszulesen... End Select End Select Richtig? |
||
Samq |
Fr, Nov 30, 2007 19:10 Antworten mit Zitat
|
|
|---|---|---|
|
Code: [AUSKLAPPEN] Case 113
............. .............. ............ If EventData() >= 500 ;Jump to a specific bookmark f = 0 bookfile = ReadFile("friend.dat") While Not Eof(bookfile) bookname$ = ReadLine (bookfile) bookURL = ReadLine (bookfile) If f = EventData()-500 Then GoURL(bookURL) Exit EndIf f = f +1 Wend EndIf End Select End Select Wend End Function GoURL(URL$) current = URL$ Notify current End Function es tut sich garnix  nichmal nen Fehler
|
||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group