Ich brauche HILFE bei RealBasic !

[Wullschi]

Hallo!
Ich bin noch ein Anfänger im Programmieren, und deshalb recht Hilfsbedürftig
Was ich machen möchte:
Ich möchte jede Zeile einer Textdatei in einen, schon bestehenden Array einlesen.

Was ich versucht habe:

dim f as folderItem
dim w as Win
dim i as Integer
dim Wortarray(0) as String
i=1

f=GetOpenFolderItem("plain/text")
if f<>nil then // der Benutzder hat auf "Open" geklickt
stream=f.OpenAsTextFile

While Not stream.EOF
WortArray(i).Readline
i=1+1
Wend

stream.Close
End If



Das war irgendwie nicht so erfolgreich
Vielen Dank
Wullschi

 

[Peter Stoffer]

Hallo

probiere es mal damit:

Dim TextDatei As FolderItem
Dim Stream As TextInputStream
Dim Zeilen(-1) As String

TextDatei=GetOpenFolderItem("text/plain")
If TextDatei<>Nil Then //Der Benutzer hat auf "Open" geklickt.
Stream=TextDatei.OpenAsTextFile

While Not Stream.EOF
Zeilen.Append Stream.ReadLine
Wend

Stream.Close
End If



Gruss Peter

 

[Hatebreeder]

japp, lösung von peter sollte funktionieren.
kannst je nach anwendung auch einfach

Zeilen.Append Stream.ReadAll

benutzen

 

[pique]

hi

ich habe nur mal nebenbei vor einiger zeit mit realbasic rumgespielt.
jedoch habe ich dabei in erinnerung behalten, dass die folderitem geschichte sich nicht ohne genauere definition des "items" verarbeiten liess.

willst du also z.B. den namen eines item auslesen und nicht die datei ansich, musst du das genauer beschreiben.

nicht sehr technisch, ich weiss.... nur ein gedanklicher hinweis....

viel spass und viel glück


das schöne beim programmieren ist ja grad der weg. alles danach ist nur
noch produktpflege.