bro, coba pake cara ini :
Private Sub Command1_Click()
Open "c:\a.txt" For Input As #1
Dim i As Integer
Dim sTmp As String
On Error GoTo asd
i = 0
Do While True
Input #1, sTmp
Text1(i).Text = sTmp
i = i + 1
Loop
asd:
Close #1
End Sub
Open "c:\a.txt" For Input As #1
Dim i As Integer
Dim sTmp As String
On Error GoTo asd
i = 0
Do While True
Input #1, sTmp
Text1(i).Text = sTmp
i = i + 1
Loop
asd:
Close #1
End Sub
nb: sebenernya kayanya bisa pake cek eol ga perlu pake on error segala, cuma g lupa. coba cari di msdn deh tentang Open # gitu. ato kalo mau lebih canggih bisa pake yang openastextstream
mungkin para dewa2 vb bisa bantu kita juga?
warmest regards
l.a.f
suprememgs <[EMAIL PROTECTED]> wrote:
mau tanya bgm caranya di vb 6 mengambil data dari file txt.
misalnya saya punya file txt yang isinya sbb :
1. KUDA
2. SAPI
3. AYAM
4. KERBAU
saya mau mengambil datanya sehingga disimpan di empat textbox yang
berbeda dimana textbox1 isinya KUDA, textbox2 SAPI dst
terima kasih
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
SPONSORED LINKS
| Programming languages | Programmer | C programming language |
| Computer programming languages | Java programming language | C programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
