´M§ä¯S©w¦r¤¸,¨Ã±N¤§«áªº¦r¤¸§ï¬°¤j¼g

txiec

dear . ¥ý¶i,,

½Ð¦AÀ°¦£ §ï¤@¤U,
    ¥H¤U¬°,¥ý«e¥Îªº... ±N¤å¦rÀɤº¤§¦Pexcel a5 ¤º®e,¨ú¥N¬° b5    ,save.

»Ý¨D.   
mystr = Replace(TEXTLINE, [a5], [b5])  ->>>>>>>??
¦p¦ó§ï¦¨, ´M§ä¯S©w¦r¤¸,¨Ã±N¤§«áªº¦r¤¸§ï¬°¤j¼g ??
½Ð¦AÀ°¦£..




Sub date_change()
fd = [a2]
fo = [B2]
If Dir(fo, vbDirectory) = "" Then
       MkDir fo
End If

fs = Dir(fd & "*.CSV")
Do Until fs = ""
Open fo & fs For Output As #2
  Open fd & fs For Input As #1
  Do While Not EOF(1)
   Line Input #1, TEXTLINE
   mystr = Replace(TEXTLINE, [a5], [b5])  ->>>>>>>??
   Print #2, mystr
Loop
Close #1
Close #2
'Kill fd & fs
fs = Dir()
Loop
End Sub

txiec

¦^´_ 23# Hsieh


    DEAR ..

     THS... §Ú¦A»°§ÖTRY ¬Ý¬Ý,,, ·PÁÂ..

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

txiec

¦^´_ 21# Hsieh


    DEAR Hsieh  

    ¦A³Â·Ð¤F.

Hsieh

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

txiec

DEAR..

¤ÓÃø¤F,TRY ¤£°Ê,,,
ÁٽЦU¦ì¥ý¶i,,, À°À°....

txiec

¦^´_ 18# Hsieh


   DEAR Hsieh ¡@

¡@§ÚTRY ¬Ý¬Ý,...

  THS.

Hsieh

¦^´_ 17# txiec


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

txiec

¦^´_ 16# Hsieh


    dear ..

¬Oªº,¤F¸Ñ.  

¬O§_¦³¾÷·|,ª½±µ§ä  
" ), "    ¤§«á,¤§¦r¥Ó,Âà¤j¼g
" M/C(2)  "

Hsieh

¦^´_ 15# txiec


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