Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

AH taj Line Input #

[es] :: Visual Basic 6 :: AH taj Line Input #

[ Pregleda: 1982 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

linex
Kruševac

Član broj: 14665
Poruke: 19
*.tehnicom.net



Profil

icon AH taj Line Input #04.10.2003. u 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?


04.10.2003. u 19:26 

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: AH taj Line Input #04.10.2003. u 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
Blue Man Group
04.10.2003. u 19:45 

linex
Kruševac

Član broj: 14665
Poruke: 19
*.tehnicom.net



Profil

icon Re: AH taj Line Input #05.10.2003. u 14:31
Laptopovi

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
05.10.2003. u 14:31 

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: AH taj Line Input #05.10.2003. u 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
Blue Man Group
05.10.2003. u 15:42 

linex
Kruševac

Član broj: 14665
Poruke: 19
*.tehnicom.net



Profil

icon Re: AH taj Line Input #05.10.2003. u 16:10
Željko to je to, ukapirao sam RADI!
Veliko hvala, Pozdrav
05.10.2003. u 16:10 

[es] :: Visual Basic 6 :: AH taj Line Input #

[ Pregleda: 1982 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.