Namen aus Datei einlesen.

Übersicht

BlitzBasic

Allgemein

	Gast Betreff: Namen aus Datei einlesen.	Mo, Mai 31, 2004 17:46 Antworten mit Zitat
Hallo. Wahrscheinlich ein sehr banales Problem. Ich habe eine Datei in der Namen jeweils durch kommas getrennt abgespeichert sind. Also Name1, Name2, Name3 usw.. nun bräuchte ich eine Funktion mit der ich z.b den Namen nummer 3 auslesen kann. Hat bei mir nicht hingehauen

Gast

Betreff: Namen aus Datei einlesen.

Mo, Mai 31, 2004 17:46
Antworten mit Zitat

Hallo. Wahrscheinlich ein sehr banales Problem. Ich habe eine Datei in der Namen jeweils durch kommas getrennt abgespeichert sind. Also
Name1, Name2, Name3 usw.. nun bräuchte ich eine Funktion mit der ich z.b den Namen nummer 3 auslesen kann. Hat bei mir nicht hingehauen Sad

	Hubsi	Mo, Mai 31, 2004 17:54 Antworten mit Zitat
Kannst Du ads nicht zeilenweise speichern in der Datei und via ReadLine dann lesen? Es ginge anders auch, ist aber ein relativ großer Aufwand für eine so kleine Aufgabe.
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Mo, Mai 31, 2004 17:54
Antworten mit Zitat

Kannst Du ads nicht zeilenweise speichern in der Datei und via ReadLine dann lesen? Es ginge anders auch, ist aber ein relativ großer Aufwand für eine so kleine Aufgabe.

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	Gast	Mo, Mai 31, 2004 18:07 Antworten mit Zitat
Würde da schon gehen aber ich habe das problem dann in 30 minuten wieder wenn ich ne andere datei auslesen will wo ich: Name,x-positon,y-position.. auslesen muss Probiert habe ich es so: datei = ReadFile("Namen.txt") zeile$ = ReadLine(datei) Name$ = Auslesen(zeile$, 1) Print Name$ Function Auslesen(String$, stelle) anzahl = 1 komma = 1 For i = 1 To Len(Stringtring$) If Mid(zahlstring$, i, 1) = "," Or i = Len(String$) Then If anzahl = stelle Then zahl$ = Mid(String$, komma, i) komma = i + 1 anzahl = anzahl + 1 EndIf Next Return Name$ End Function Habe für den Namen aber nur "0" bekommen....

Gast

Mo, Mai 31, 2004 18:07
Antworten mit Zitat

Würde da schon gehen aber ich habe das problem dann in 30 minuten wieder wenn ich ne andere datei auslesen will wo ich:
Name,x-positon,y-position.. auslesen muss Sad

Probiert habe ich es so:

datei = ReadFile("Namen.txt")

zeile$ = ReadLine(datei)
Name$ = Auslesen(zeile$, 1)
Print Name$

Function Auslesen(String$, stelle)
anzahl = 1
komma = 1
For i = 1 To Len(Stringtring$)
If Mid(zahlstring$, i, 1) = "," Or i = Len(String$) Then
If anzahl = stelle Then zahl$ = Mid(String$, komma, i)
komma = i + 1
anzahl = anzahl + 1
EndIf
Next
Return Name$
End Function

Habe für den Namen aber nur "0" bekommen....

	Gossi	Mo, Mai 31, 2004 18:44 Antworten mit Zitat
Ich hab da zufällig vor kurzen eine Funktion programmiert. Lese einfach die ganze Zeile aus der Datei und wende dann diese Funktikn an. Code: [AUSKLAPPEN] [EINKLAPPEN] ;Ermittelt nach Angabe den ersten, zweiten ... oder n-ten Parameter. ;Die Parameter sind durch Kommata voneinander getrennt. Prüft außerdem, function ErmittleParameterX$(prm$,nummer) ;Springt von Komma zu Komma, bis der gewünschte ;Parameter erreicht wurde. local kommaPos=0 local kommaNummer=1 ;Entspricht dem Parameter. repeat if kommaNummer=nummer ;Der gewünschte Parameter liegt nach dem Komma. local nextKomma=instr(prm$,",",kommaPos+1) if nextKomma=0 nextKomma=len(prm$)+1 ;Das Wort rausschneiden und zurückgeben. local length=nextKomma-kommaPos-1 local thePrm$=mid(prm$,kommaPos+1,length) return thePrm$ endif kommaPos=instr(prm$,",",kommaPos+1) kommaNummer=kommaNummer+1 if kommaNummer>nummer return "<EMPTY>" forever end function Ich musste an der Funktion noch ein bisschen was ändern, aber eigentlich sollte sie gehen.
Alle Wasser laufen ins Meer, doch wird das Meer nicht voller; an den Ort, dahin sie fließen, fließen sie immer wieder. (...) Was geschehen ist, eben das wird hernach sein. Was man getan hat, eben das tut man hernach wieder, und es geschieht nichts neues unter der Sonne. Geschieht etwas, von dem man sagen könnte: "Sieh, das ist neu"? Es ist längst vorher auch geschehen in den Zeiten, die vor uns gewesen sind.

Gossi

Mo, Mai 31, 2004 18:44
Antworten mit Zitat

Ich hab da zufällig vor kurzen eine Funktion programmiert.
Lese einfach die ganze Zeile aus der Datei und wende dann diese Funktikn an.

Code: [AUSKLAPPEN]

;Ermittelt nach Angabe den ersten, zweiten ... oder n-ten Parameter.
;Die Parameter sind durch Kommata voneinander getrennt. Prüft außerdem,
function ErmittleParameterX$(prm$,nummer)
;Springt von Komma zu Komma, bis der gewünschte
;Parameter erreicht wurde.
local kommaPos=0
local kommaNummer=1 ;Entspricht dem Parameter.
repeat
   if kommaNummer=nummer ;Der gewünschte Parameter liegt nach dem Komma.
      local nextKomma=instr(prm$,",",kommaPos+1)
      if nextKomma=0 nextKomma=len(prm$)+1
      ;Das Wort rausschneiden und zurückgeben.
      local length=nextKomma-kommaPos-1
      local thePrm$=mid(prm$,kommaPos+1,length)
      return thePrm$
   endif
   kommaPos=instr(prm$,",",kommaPos+1)
   kommaNummer=kommaNummer+1
   if kommaNummer>nummer return "<EMPTY>"
forever
end function

Ich musste an der Funktion noch ein bisschen was ändern, aber eigentlich sollte sie gehen.

Alle Wasser laufen ins Meer, doch wird das Meer nicht voller; an den Ort, dahin sie fließen, fließen sie immer wieder. (...) Was geschehen ist, eben das wird hernach sein. Was man getan hat, eben das tut man hernach wieder, und es geschieht nichts neues unter der Sonne. Geschieht etwas, von dem man sagen könnte: "Sieh, das ist neu"? Es ist längst vorher auch geschehen in den Zeiten, die vor uns gewesen sind.

	globecrash	Mo, Mai 31, 2004 19:30 Antworten mit Zitat
hi das kann man doch mit data regeln. indem man einfach Code: [AUSKLAPPEN] [EINKLAPPEN] data meyer fritz walter macht und die dan ausliest.weiss auch nicht so genau. hast du rene meyers buch? da stehts. mfg Fu
(\__/) (O.o ) (> < ) This is Bunny. Copy Bunny into your signature to help him on his way to world domination User posted image