Einlesen und Auslesen

Übersicht

BlitzBasic

Beginners-Corner

	azureuz Betreff: Einlesen und Auslesen	Fr, Dez 24, 2004 16:13 Antworten mit Zitat
Hallo, ich wollte mal ein bisschen mit BB rumspielen und hab dabei so ein KLEINES "adressbuch" gemacht bzw. ich bin dabei eins zu machen. nun hab ich aber ein problem. wenn ich alles im programm einegeb(name etc.) und die date ndann auch ausgeben will, gbit er mir immer nur zahlen zurück? ich lese die daten mit "name$" ein und aus. da müsste er doch normalerweise den text so lassen,oder nicht?

azureuz

Betreff: Einlesen und Auslesen

Fr, Dez 24, 2004 16:13
Antworten mit Zitat

Hallo,
ich wollte mal ein bisschen mit BB rumspielen und hab dabei so ein KLEINES "adressbuch" gemacht bzw. ich bin dabei eins zu machen. nun hab ich aber ein problem. wenn ich alles im programm einegeb(name etc.) und die date ndann auch ausgeben will, gbit er mir immer nur zahlen zurück? ich lese die daten mit "name$" ein und aus. da müsste er doch normalerweise den text so lassen,oder nicht?

	zocker2150	Fr, Dez 24, 2004 16:16 Antworten mit Zitat
poste doch bitte deinen Code der das Problem verursacht

zocker2150

Fr, Dez 24, 2004 16:16
Antworten mit Zitat

poste doch bitte deinen Code der das Problem verursacht Wink

	azureuz	Fr, Dez 24, 2004 16:19 Antworten mit Zitat
Ja...gute Frage. Hier mal der Code der die Textdatei ausliest: Code: [AUSKLAPPEN] [EINKLAPPEN] Function auslesen() Cls Locate 0,0 datei=ReadFile("lesen.txt") name$=ReadFloat(datei) alter$=ReadFloat(datei) wohnort$=ReadFloat(datei) icq$=ReadFloat(datei) CloseFile datei Print "Name: "+name$ Locate 0,15 Print "Alter: "+alter$ Locate 0,30 Print "Wohnort: "+wohnort$ Locate 0,45 Print "Icq: "+icq$ Locate 0,75 Print "Bitte Enter drücken um in das Menü zurück zu kehren..." WaitKey() If KeyHit(28) Then menue() End If End Function

azureuz

Fr, Dez 24, 2004 16:19
Antworten mit Zitat

Ja...gute Frage. Hier mal der Code der die Textdatei ausliest:

Code: [AUSKLAPPEN]

Function auslesen()
   Cls
   Locate 0,0
   datei=ReadFile("lesen.txt")
   name$=ReadFloat(datei)
   alter$=ReadFloat(datei)
   wohnort$=ReadFloat(datei)
   icq$=ReadFloat(datei)
   CloseFile datei
   Print "Name: "+name$
   Locate 0,15
   Print "Alter: "+alter$
   Locate 0,30
   Print "Wohnort: "+wohnort$
   Locate 0,45
   Print "Icq: "+icq$
   Locate 0,75
   Print "Bitte Enter drücken um in das Menü zurück zu kehren..."
   WaitKey()
   If KeyHit(28) Then
   menue()
   End If
End Function

	Kabelbinder Sieger des WM-Contest 2006	Fr, Dez 24, 2004 16:21 Antworten mit Zitat
ReadFloat ließt immer Kommazahlen aus der Datei. versuch's mal mit ReadLine. Da müsstest du hinterher Strings rauskriegen.
<Wing Avenger Download> ◊◊◊ <Macrophage Download>