[es] - Ispisivanje rednog broja u txt fajlu

zormar

Član broj: 129240
Poruke: 176
*.adsl-3.sezampro.yu.

Profil

Ispisivanje rednog broja u txt fajlu

^{22.09.2008. u 16:18 - pre 189 meseci}

Kako ispisati redne brojeve ispred svakog zapisa (reda) u txt fajlu?

Code:
Print #1, intP(1), intP(2), intP(3), intP(4), intP(5)

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.83.*

+1 Profil

Re: Ispisivanje rednog broja u txt fajlu

^{22.09.2008. u 16:30 - pre 189 meseci}

Ukoliko kreiras novi fajl:

Code:

Dim ff As Integer
Dim t As Integer

ff = Freefile()

Open "myfile.ext" For Output As #ff

Do While imastadaseupisuje ' Ovo ces zameniti nekim tvojim uslovom

    t = t + 1
    Print #ff, t, intP(1), intP(2), intP(3), intP(4), intP(5)

Loop

close #ff

Ukoliko hoces da Appendujes na vec postojeci onda:

Code:

Dim ff As Integer
Dim t As Integer

t = vrednostposlednjegupisa ' Ovo ces zameniti nekom tvojom promenljivom gde ce ti biti zabelezena vrednost promenjljive t od poslednjeg upisa

ff = Freefile()

Open "myfile.ext" For Append As #ff

Do While imastadaseupisuje ' Ovo ces zameniti nekim tvojim uslovom

    t = t + 1
    Print #ff, t, intP(1), intP(2), intP(3), intP(4), intP(5)

Loop

close #ff

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.112.*

+7 Profil

Re: Ispisivanje rednog broja u txt fajlu

^{22.09.2008. u 23:38 - pre 189 meseci}

Ovako mozes da stavis broj ispred svakog pasusa u tekstu (ispred delova teksta odvojenih znakom za novi red)

Code:

Private Sub PrintLines(file As String, txt As String)
Dim C As Integer, P1 As Integer, P2 As Integer: C = 1: P1 = 1: P2 = 0
Dim hFile As Integer: hFile = FreeFile
Open file For Output As #hFile

While P1 < Len(txt)
P2 = InStr(P1, txt, vbCrLf): If P2 = 0 Then P2 = Len(txt) + 1
If Not P2 = P1 Then Print #hFile, CStr(C) & ".   " & Mid(txt, P1, P2 - P1)
C = C + 1: P1 = P2 + Len(vbCrLf)
Wend
Close #hFile
End Sub

Private Sub Form_Load()
Dim str As String
str = "Linija jedan" & vbCrLf & _
        "Linija dva" & vbCrLf & _
        "Linija tri"
PrintLines "C:\Fajl1.txt", str
PrintLines "C:\Fajl2.txt", ""
End Sub

izlaz

Code:

1.   Linija jedan
2.   Linija dva
3.   Linija tri

HomePage http://www.eurora3d.com

Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893

+384 Profil

Re: Ispisivanje rednog broja u txt fajlu

^{24.09.2008. u 07:44 - pre 189 meseci}

Code:

vrednostposlednjegupisa
imastadaseupisuje

@stefane da ti nije rgd bio mentor? :)

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.235.*

+1 Profil

Re: Ispisivanje rednog broja u txt fajlu

^{24.09.2008. u 08:57 - pre 189 meseci}

Dobro si primetio. :)
LOL!

Nije... Nego nisam imao nazive promenljivih koje on koristi za to pa sam hteo sto "slikovitije" da objasnim.

Stavio sam i komentare:

vrednostposlednjegupisa - ' Ovo ces zameniti nekom tvojom promenljivom gde ce ti biti zabelezena vrednost promenjljive t od poslednjeg upisa
imastadaseupisuje - ' Ovo ces zameniti nekim tvojim uslovom

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
*.adsl-4.sezampro.yu.

Profil

Re: Ispisivanje rednog broja u txt fajlu

^{24.09.2008. u 18:17 - pre 189 meseci}

Zahvaljujem svima na odgovorima

Odgovor na temu