GBKEE

¦^´_ 1# acdx

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, objFile As Object, A As Variant, E As Variant
   
4.     Set objFile = CreateObject("Scripting.FileSystemObject")
   
5.     Set objFile = objFile.OpenTextFile("D:\Test.txt", 1)
   
6.     A = objFile.READALL
   
7.     A = Replace(A, vbCr, "")     '®ø°£´_¦ì¦r¤¸
   
8.     A = Split(A, "ECMA-74 +")(0) '¨ú±o"ECMA-74 +"¤§«eªº¦ê
   
9.     A = Replace(A, vbLf & vbLf, vbLf)  '®ø°£ªÅ¥Õ¦C
   
10.     A = Split(A, vbLf)
    
11.     For i = 0 To UBound(A) - 1
    
12.         MsgBox A(i)
    
13.     Next
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# acdx

Ū¨ú³Ì«á¤@¦æªº­È

¬OÀɮתº³Ì©³³¡ªº¨º¤@¦æ¶Ü?

ÁÙ¬O¨º¤@¦æªº¥i¯à¬O"ECMA-74 +"¤]¥i¯à¬O"ABCD" ,¤£¬OÀɮתº³Ì©³³¡ªº¨º¤@¦æ?
³o¦r¦ê¦³©T©w¬O¨º¨Ç¦r¦ê¶Ü?

GBKEE

¦^´_ 6# acdx
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, objFile As Object, A As Variant
   
4.     Set objFile = CreateObject("Scripting.FileSystemObject")
   
5.     Set objFile = objFile.OpenTextFile("D:\Test.txt", 1) '¶}±Ò¤å¦rÀÉ
   
6.     A = objFile.READALL      'Ū¨ú¤å¦rÀÉ¥þ³¡¦r¦ê
   
7.     Do While InStr(A, vbCrLf) Or InStr(A, vbLf & vbLf)
   
8.         A = Replace(A, vbCrLf, vbLf)      '®ø°£´_¦ì¦r¤¸
   
9.         A = Replace(A, vbLf & vbLf, vbLf) '®ø°£ªÅ¥Õ¦C
   
10.     Loop
    
11.     If Mid(A, Len(A)) = vbLf Then A = Mid(A, 1, Len(A) - 1) '²M°£³Ì«á¦r¤¸¬O´«¦æ¦r¤¸¡C
    
12.     A = Split(A, vbLf)  'Àɮפ¤¦³¸ê®Æªº¦æ,¸m¤J°}¦C
    
13.     MsgBox A(UBound(A)) 'Àɮתº³Ì«á¦³¸ê®Æªº¨º¤@¦æ
    
14. End Sub

½Æ»s¥N½X