| 9Mcode comment |
 |
|
|
|
| |
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #2324 [Vb] (จาก IP: 58.9.162.110)
ขอ Code อ่าน text ไฟล์หน่อยครับ
ผมมี text file อยู่ ต้องการเปิดขึ้นมาให้มัน แสดง แบบทั้งหน้า ทำอย่างไรครับ ขอบคุณครับ
|
| จากคุณ
:
AofaaB / ekkarat_7@hotmail.com [2008-10-05 00:32:02]
|
|
ความคิดเห็น #27161 (จาก IP: 58.8.194.81)
'(general declaration)
Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long
'==================================
Private Sub Command1_Click()
' Get a free file number
nFileNum = FreeFile
' Open a text file for input. inputbox returns the path to read the file
Open "C:\Documents and Settings\Sudeep\My Documents\3.txt" For Input As nFileNum
lLineCount = 1
' Read the contents of the file
Do While Not EOF(nFileNum)
Line Input #nFileNum, sNextLine
'do something with it
'add line numbers to it, in this case!
sNextLine = sNextLine & vbCrLf
sText = sText & sNextLine
Loop
Text1.Text = sText
' Close the file
Close nFileNum
End Sub |
| จากคุณ
:
sup98 [2008-10-05 01:17:01]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
|
|
New Article
อัตราค่าโฆษณา
