Læse fra en txt fil...

http://www.eksperten.dk/spm/100330
-her er hvordan man gemmer.

Blæret... - men det jeg skal bruge er hvordan man læser... - og efter som jeg har lagt 70 pts ud til et svar, burde det være åbentlyst at jeg ikke gider til at tænke selv... :)

Og husk det skal være en linie ad gangen...

og du kan åbne en fil sådan her :

Private Sub cmdOpen_Click()
Dim FileName As String
CommonDialog1.Action = 1
FileName = CommonDialog1.FileName
F = FreeFile
Open FileName For Input As #F
Text1.Text = Input$(LOF(F), F)
Close #F
End Sub

ok læste ikke lige det med en linie.... jeg finder lige på noget :)

I pascal er det noget ´hen ad\' :

Readln(fil, string); for at læse en linie, forudsat at man læser filen som text...

Men nu er basic jo også lidt anderledes... :) - for ikke at sige råddent... :) - kan man læse et tegn ad gangen (char) - så må det jo være linieskift hvis der kommer 13 og 10 efter hinanden...

Hej.



Dim linie() as String
Dim p as Integer  \' hvis der er under 32000 linier

open sti & \"\\filnavn.txt\" for input as #1
  Do while EOF(1) = False
    Redim Preserve linie(p+1)   
      Line Input #1, linie(p)
      p=p+1
    Loop
  Close #1

M.v.h.  Jørn

Joern > Well... - det ser fornuftigt nok ud... - checker det lige i morgen... oki?

nice jørn :) -det var det jeg selv havde gang i, men jeg måtte ikke ændre på array størrelsen - uden fejl. (glemte preserve)

//*Jelzin

Tak  :-)  Håber jeg ikke har overset noget,  man kan jo godt holde array\'et mere end 1 større end antallet af indlæste værdier, men 1 skulle være nok.  Kig evt. på ubound for mulig anvendelse.
M.v.h.  Jørn

Jeg ville nu gøre sådan her

En ref til Microsoft Scripting Runtime også

Option Explicit

Dim fso As New FileSystemObject
Dim Streem As TextStream
Dim Tel As Long
Dim str(1000) As String

Private Sub Form_Load()

  Set Streem = fso.OpenTextFile(Filsti, ForReading)
 
  Tel = 1
  Do Until Streem.AtEndOfStream
    str(Tel) = Streem.ReadLine
    Tel = Tel + 1
  Loop
 
End Sub

Som Jørn var inde på sætte du

Dim Tel As Long
Dim str(1000) As String

Efter hvor mange du tror du skal bruge, men bruge ikke Integer da den er langsom, Long er ikke bare større men også hurtiger

ij>> int = langsom ???

btw hvor fandt du koden jeg mener jeg har set den for ikke længe siden (men har formateret og nu er alle mine foretrukne væk :)

Infojens>>  Jeg skrev kode dengang man skulle spare på ram.  En integer fylder jo meget mindre end en long.  At der skulle være forskel i \"hastighed\" betvivler jeg, i hvert fald en forskel der betyder noget for et programs performance.  Men ellers...  At reservere et array på 1000, når man måske kun skal bruge 27 synes jeg er resurse-fråds.

Men det er altid godt med alternative svar på spørgsmålene, den ene har idéer, som den anden har overset eller ikke kender.  \"readline\" kender min VB5 vist ikke.  Som jeg har nævnt ofte her, bør de som stiller spørgsmål angive hvilken version af VB de anvender.  Jeg vedligeholder f.eks. stadig VB3-programmer!

M.v.h.  Jørn

tror jeg fandt siden selv :
http://www.freevbcode.com/ShowCode.Asp?ID=1898

Jeg har modtaget undervisning et dyrt sted :-)

Min lære fortalte at man bør bruge Long istedet for Integer også selvom man ved at man ikke kommer over... ved mega store programmer skulle man kunne mærke forskel

Fed debat vi skulle næsten have en chat bar her..

Til jørn
Jeg synes ikke mit virker hvis jeg skriver

Dim str() As String

så for jeg

Run-time error 9
Subscript out of range

hvad gør jeg forkert ?

Til jørn

Det kunne være sjovt at se hvis du overskrev din SCRRUN.DLL med en fra vb 6

Så tror jeg faktisk at det også vil virke hos dig

Skal jeg sende den til dig ?

infojens>>
Denne kode er fra et program, der virker:

I et modul:
\'leverandører
Global a, e, levialt, naste As Integer
Global lev(20), lev0(), nylev

Jeg ser nu at typen ikke er angivet, så bliver den variant  (de fylder i øvrigt!)



Open netsti & \"lev.dat\" For Input As #3
    Do While EOF(3) = False
      ReDim Preserve lev0(e + 1)
      For a = 0 To 19
        Line Input #3, lev(a)
      Next
      lev0(e) = lev(0) & Space(30) & lev(9)
      If chkredsti(0).Value = 1 Then
          If lev(4) = \"ja\" Then lstlev.AddItem lev0(e)
        Else
          lstlev.AddItem lev0(e)
      End If
       
      e = e + 1
      Loop
  Close #3

Der læses fra en ascii-fil der fungerer som database med 20 felter pr. post.  Skilletegn er \"Enter\"

M.v.h.  Jørn

Infojens>>  Jeg har 3 maskiner, der kører VB5, så det går nok med et lille eksperiment.  Send du bare til joern.thorsen@get2net.dk

M.v.h.  Jørn

Infojens>> Filen er modtaget, kigger på det i morgen.  Så skriver jeg her om resultatet.
M.v.h.  Jørn, står af nu og går i seng.  En mandag truer :-(

70 pts til joern... - det var hans kode der blev brugt...