dim x() as string, l as long s = split(text1.text, vbcrlf) for l = 0 to ubound(s) msgbox l & ":" & s(l) next l
best regards [wwn] --- In [email protected], "gunartha.nyoman" <[EMAIL PROTECTED]> wrote: > > Selamat siang... > > Terima kasih atas tanggapannya > Dari kedua kode yang ada baik dari Pak Adi, Pak Pur keduanya hasilnya sama. > Kalau boleh saya tanya lebih jauh gimana ya caranya agar > msgbox yang tapil disamping jumlah baris juga per baris dari nomor 1 sampai data akhir ( rencana nya data ini akan disimpan dalam tabel ) > > Dim sTxt As String, Pos As Integer, sStart As Integer, nBaris As Integer > > sTxt = Text1.Text 'control text1.text adalah multiline > Pos = 1 > sStart = 1 > nBaris = 1 > Do Until Pos = 0 > Pos = InStr(sStart, sTxt, vbCrLf) > If Pos > 0 Then > > MsgBox "Data ke " & nBaris & "adalah : " '// kira2 kode apa yg mesti ditambah untuk menampilkan data 1 : 10*75*80-2 dan seterusnya sampai terakhir > > nBaris = nBaris + 1 > sStart = Pos + 1 > End If > Loop > MsgBox nBaris 'jumlah baris yang ada Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut: http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke: [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini: Yahoo! Messenger: wahanaprogrammer Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
