[ linex @ 04.10.2003. 19:26 ] @
Kako je moguće da iz jednog fajla blabal.txt očitam liniju Line Input-om
a zatim unesem u više textbox-ova po dva ili više karaktera


If LenB(Dir$(App.Path & "\blabla.txt")) Then
Open App.Path & "\blabla.txt" For Input As #1
Line Input #1, a
Line Input #1, b
Text1.Text = a
Text2.Text = b
Close #1
Else
MsgBox "Nema Blabla.txt Fajla"
End If

ovo je za više linija u txt fajla ali iz jedne linije ???

hvala unapred?


[ mladenovicz @ 04.10.2003. 19:45 ] @
Ako koristis nizove kontrola umesto text1, text2, ... i ako u prvi text box ide prva linija, u drugi druga, itd. onda probaj ovako nesto

Code:

Dim fnum As Integer
Dim sText As String
Dim LineNo As Long

fnum = FreeFile
LineNo = 0

Open App.Path & "\blabla.txt" For Input As #fnum

While Not EOF(fnum)
    
    Line Input #fnum, sText
    txtText(LineNo).Text = sText
    LineNo = LineNo + 1
Wend

Close #fnum


Pogledaj top topic FSO i TextStream objekat, mozda ce ti sa njim biti jednostavnije da radis
[ linex @ 05.10.2003. 14:31 ] @
Hvala Zeljko
primer koji si dao je poučan.
Naglašavam da nisam neki poznavalc VB.
Najbolje je da ponovo postavim pitanje??

primera imam prvu liniju u blabla.txt koja glasi
aa,bb,cc,dd,ee,ff ...

kako da učitam u

Private Sub Form_Load()
aa u txtText(0).Text
bb u txtText(1).Text
cc u txtText(2).Text
itd

Namena je učitavanje zadnje SAVE promene.

HVALA
[ mladenovicz @ 05.10.2003. 15:42 ] @
Pogledaj funkciju Split. Ona parsira string na osnovu prosledjenog delimitera i napravi niz (evo primera)

Code:

Dim sText       As String
Dim arrText()   As String
Dim i           As Integer

    sText = "aa,bb,cc,dd,ee"
    arrText = Split(sText, ",")
    
    For i = txtText.LBound To txtText.UBound
        txtText(i).Text = arrText(i)
    Next
[ linex @ 05.10.2003. 16:10 ] @
Željko to je to, ukapirao sam RADI!
Veliko hvala, Pozdrav