GBKEE

¦^´_ 1# mgame168

1. Sub Ex()
   
2. Dim MyString As String, i%
   
3. Open "MYFILE" For Input As #1    ' ¶}±Ò¿é¤JÀÉ¡C
   
4. i = 0
   
5. Do While Not EOF(1)              ' Àˬd¬O§_¤w¨ìÀɧÀ¡C
   
6.     Line Input #1, MyString      ' ±N¸ê®ÆŪ¤JÅܼƤ¤¡C
   
7.     ActiveCell.Offset(i).Value = MyString     '©¹¤U¼g¤J
   
8.     'ActiveCell.Offset(0, i).Value = MyString '©¹¥k¼g¤J
   
9.     i = i + 1
   
10. Loop
    
11. Close #1
    
12. End Sub

½Æ»s¥N½X

GBKEE

¶}±ÒªºÀɮפ£¬O¯S¤j®É¥i¸Õ¸Õ

1. Sub Ex()
   
2.     Dim mystr$, Allstr$, Ar
   
3.     Open "D:\Test\Test.txt" For Input As #1  
   
4.     Do While Not EOF(1)
   
5.         Line Input #1, mystr
   
6.         Allstr = IIf(Allstr <> "", Allstr & "GBK", "") & mystr
   
7.     Loop
   
8.     Close #1
   
9.     Ar = Split(Allstr, "GBK")
   
10.     [A1].Resize(UBound(Ar) + 1, 1) = Application.Transpose(Ar)
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# mgame168
¬O³o¼Ë¶Ü?      ¤£­n¥´Á¼ÃD

1. Sub Ex()
   
2.     Dim mystr$, Allstr$, Ar
   
3.     Open "D:\Test.txt" For Input As #1
   
4.     Do While Not EOF(1)
   
5.         Line Input #1, mystr
   
6.         If Len(mystr) > 0 And mystr <> " " Then Allstr = IIf(Allstr <> "", Allstr & "***", "") & mystr
   
7.     Loop
   
8.     Close #1
   
9.     Ar = Split(StrReverse(Allstr), "***")
   
10.     [A1].Resize(1, UBound(Ar)) = Ar
    
11. End Sub

½Æ»s¥N½X