[µo°Ý] ¦p¦ó¥ÎVBA¾ã²z¸ê®Æ

play9091

³Ìªñ¦b·Q¦³¨S¦³¤°»ò¤è¥i¥H¹F¨ì¥ÎVBA¨Ó¾ã²z¤å¦rÀÉ¡K¡K

¹ê»Ú¤Wªº°µªk¡A¨ú¥N©Ò¦³ªº´«¦æ²Å¸¹¡C
µM«á§â "END+++" ¥Î "END^p+++" ¨ú¥N¡C

­ì¥»§Ú¬O¥Îword¨Ó°µ¤W­±ªº¨Æ¡A¦ý¦]¬°ÁÙ­n¶×¤Jexcel°µ¾ã²z¡A©Ò¥H·Q»¡¯à¤£¯à¥Îexcel¹F¨ì¡C
ÁÙ¬O»¡¦³¥i¥H°õ¦æ¥~³¡µ{¦¡ªº¥\¯à¡H¡H

®ÄªG¦p¥I¥ó¡I¡I¡I

play9091

¦^´_ 2# kimbal


    «z³á¡I¡I¡I
³o¤èªk¤Ó¯«¤F¡AÁÙ¨S¦³¥Î¹LFSO©O¡K¡K¨ÓºCºC¬Ý¾Ç²ß¡K¡K¦³¤£À´ªº¦A¤W¨Ó°Ý¡I¡I¡I

kimbal

¦^´_ 1# play9091

¬d¬Ý¤@¤UFSO(FILE SYSTEM OBJECT)À³¥Î

1. Sub ReadStrangeFile()
   
2.      Dim FSO As Object 'FileSystemObject
   
3.     Dim FSOFile As Object 'File
   
4.     Dim FSOStream As Object 'TextStream
   
5.     Dim FSOStreamWrite As Object 'TextStream
   
6.     Dim strFileName As String
   
7.     Dim strFileNameNew As String
   
8.     Dim strCurrLine As String
   
9.    
   
10.     Set FSO = CreateObject("Scripting.FileSystemObject") 'FileSystemObject
    
11.    
    
12.     strFileName = "C:\blog\tw\txt\203-¾ã²z«e.txt"
    
13.     Set FSOFile = FSO.GetFile(strFileName)
    
14.     Set FSOStream = FSOFile.OpenAsTextStream(1, -2) 'ForReading, TristateUseDefault
    
15.    
    
16.     strFileNameNew = "C:\blog\tw\txt\203-¾ã²z«á.txt"
    
17.     Set FSOStreamWrite = FSO.OpenTextFile(strFileNameNew, 2, True) 'ForWriting
    
18. 
    
19.     strCurrLine = ""
    
20.     Do While Not FSOStream.AtEndOfStream
    
21.         strCurrLine = strCurrLine & FSOStream.ReadLine
    
22.         If Right(Trim(strCurrLine), 3) = "END" Then
    
23.             FSOStreamWrite.WriteLine (strCurrLine)
    
24.             strCurrLine = ""
    
25.         End If
    
26.     Loop
    
27.     FSOStream.Close
    
28.     FSOStreamWrite.Close
    
29. End Sub

½Æ»s¥N½X