vb¶ÁÈ¡ÎļþÄÚÈݲ¢Ê¶±ð»Ø³µ·û

¶ÁÈ¡Îı¾ÖеÄÄÚÈÝ£¬×¢ÒâÊÇtxt »òÕßwordÖеÄÄÚÈÝ£¬²»ÊÇtext¿Ø¼þÖеģ¬ÒªÊ¶±ð»Ø³µ·û£¬Ò²¾ÍÊǶÁÈ¡Ö®ºóÓÃSPLIT()µÃµ½»Ø³µ·û£¬¾ßÌå·½·¨ Çë½Ì~£¡£¡£¡

---

VB code:
Set o = GetObject("", "Scripting.FileSystemObject").OpenTextFile("a.bat")
Do Until o.AtEndOfStream
MsgBox o.ReadLine()
Loop

---

filenum% = FreeFile
Open CommonDialog1.FileName For Input As #filenum
Input #filenum, a
y = Split(a, "vbcrlf")
DataBaseForm.Text1.Text = y(0) & "1111" & y(1)
¾ßÌå´úÂ룬Y£¨1£©¾­³£Ï±êÔ½½ç£¬ËµÃ÷ÎÞ·¨Ê¶±ðVBCRLF £¬°ï°ïæ £¬ÔÚÏßµÈ~

---

°´ÐжÁȡʹÓþͿÉÒÔÁË

Private Sub Command1_Click()
dim a() as string
Dim i As integer
Open App.Path & "\1.txt" For Input As #1
Dim Lstr As String
Do While Not EOF(1)
            Line Input #1, Lstr
            i=i+1
            redim preserve a(i)
            a(i)=lstr
            MsgBox a(i)
Loop
Close #1
End Sub

---

ÒýÓÃ

°´ÐжÁȡʹÓþͿÉÒÔÁË

Private Sub Command1_Click()
dim a() as string
Dim i