Hsieh

¦^´_ 1# txiec

1.     Sub nn()
   
2. fs = "ucase.txt" '¤å¦rÀɦì¸m
   
3. fd = "temp.txt" '¼È¦sÀɹw³]¥Ø¿ý§Úªº¤å¥ó
   
4. Open fs For Input As #1
   
5. Open fd For Output As #2
   
6. Do While Not EOF(1)
   
7.     Line Input #1, TextLine
   
8.     Print #2, UCase(TextLine)
   
9. Loop
   
10. Close #1
    
11. Close #2
    
12. Open fd For Input As #1
    
13. Open fs For Output As #2
    
14. Do While Not EOF(1)
    
15. Line Input #1, TextLine
    
16.     Print #2, UCase(TextLine)
    
17. Loop
    
18. Close #1
    
19. Kill fd
    
20. Close #2
    
21. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 4# txiec

1. Sub nn()
   
2. fs = Dir("D:\A\*.txt") 'TXTÀɮצì¸m
   
3. Do Until fs = ""
   
4. fd = "temp.txt" '¼È¦sÀɹw³]¥Ø¿ý§Úªº¤å¥ó
   
5. Open fs For Input As #1
   
6. Open fd For Output As #2
   
7. Do While Not EOF(1)
   
8.     Line Input #1, TextLine
   
9.     Print #2, UCase(TextLine)
   
10. Loop
    
11. Close #1
    
12. Close #2
    
13. Open fd For Input As #1
    
14. Open fs For Output As #2
    
15. Do While Not EOF(1)
    
16. Line Input #1, TextLine
    
17.     Print #2, UCase(TextLine)
    
18. Loop
    
19. Close #1
    
20. Kill fd
    
21. Close #2
    
22. fs = Dir
    
23. Loop
    
24. End Sub

½Æ»s¥N½X

Hsieh

¦r¦ê¤¤·j´M¯S©w¦r¤¸¦ì¸m¥i¨Ï¥Îinstr§ä¨ì¦ì¸m
¥ÎmidÀò±o»PÂà¼gªº¦r¦ê
¦A¨Ï¥ÎUcaseÂন¤j¼g
³Ì«á¨Ï¥Îreplace¨ú¥N

Hsieh

¦^´_ 13# txiec

1. Sub nn()
   
2. mystr = "©m¦W: a,b,C,D " '­ì¦r¦ê
   
3. replacestr = "©m¦W: " '·j´M¦r¦ê(¤£Âà¤j¼g)
   
4. k = InStr(mystr, replacestr) + Len(replacestr)
   
5. temp = Mid(mystr, k) '±ýÂন¤j¼g¦r¦ê
   
6. MsgBox Replace(mystr, temp, UCase(temp))
   
7. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 15# txiec


    ³oºØ°ÝÃD¥²»Ý¦Ò¼{©Ò¦³¤å¦rÀɪº³W«h

Hsieh

¦^´_ 17# txiec


    µ¹ªº¤èªk§A¦Û¤v³£¤£¸Õ¶Ü?

Hsieh

¦^´_ 20# txiec
¤W¶Ç§Aªº¤å¦rÀɧ@»¡©ú

Hsieh

¦^´_ 22# txiec

1. Sub Ex()
   
2. fd = ThisWorkbook.Path & "\" '¤å¦rÀɥؿý
   
3. fs = Dir(fd & "*.txt") '¥Ø¿ý¤¤ªº¤å¦rÀɦW
   
4. Do Until fs = ""
   
5. Open fd & "temp.txt" For Output As #2 '·Ç³Æ¼È¦sÀÉ
   
6.   Open fd & fs For Input As #1 '¶}±Ò­nÂର¤j¼gªº¤å¦rÀɧ@¿é¤J¥Î
   
7.   Do While Not EOF(1)
   
8.    Line Input #1, mystr
   
9.    If mystr Like "M/C(*),*" Then '¦pªG¸Ó¦r¦êÃþ¦ü¦¹¼Ë¦¡
   
10.    restr = Mid(mystr, InStr(mystr, "),")) '¨ú±o­nÂର¤j¼gªº³¡¥÷¦r¦ê
    
11.    mystr = Replace(mystr, restr, UCase(restr)) '±N­ìÅܼÆ
    
12.    End If
    
13.    Print #2, mystr '±N¤w¸gÂন¤j¼gªº¦r¦ê¼g¤J¼È¦sÀÉ
    
14. Loop
    
15. Close #1
    
16. Close #2
    
17. Open fd & fs For Output As #2 '¥´¶}»ÝÂà¼gªº¤å¦rÀɷdzƼg¤J
    
18.   Open fd & "temp.txt" For Input As #1 '¶}±Ò¤wÂন¤j¼gªº¼È¦sÀÉ
    
19.   Do While Not EOF(1)
    
20.   Line Input #1, mystr 'Ū¥X¼È¦sÀɸê®Æ
    
21.   Print #2, mystr '±N¼È¦sÀɦr¦ê¼g¤J»Ý­×§ïÀÉ®×
    
22.   Loop
    
23. Close #1
    
24. Close #2
    
25. Kill fd & "temp.txt" '§R°£¼È¦sÀÉ
    
26. Loop
    
27. End Sub

½Æ»s¥N½X