AH taj Line Input #

Odgovori Nova tema

4 odgovora
5.258 pregleda

AH taj Line Input # 04.10.2003. u 19:26 · pre 280 meseci #1

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?

Re: AH taj Line Input # 04.10.2003. u 19:45 · pre 280 meseci #2

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

Potpis

Blue Man Group

Re: AH taj Line Input # 05.10.2003. u 14:31 · pre 280 meseci #3

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

Re: AH taj Line Input # 05.10.2003. u 15:42 · pre 280 meseci #4

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

Potpis

Blue Man Group

Re: AH taj Line Input # 05.10.2003. u 16:10 · pre 280 meseci #5

Željko to je to, ukapirao sam RADI!
Veliko hvala, Pozdrav

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Srodne teme