尋找特定字元,並將之後的字元改為大寫

txiec

dear . 先進,,

請再幫忙 改一下,
    以下為,先前用的... 將文字檔內之同excel a5 內容,取代為 b5    ,save.

需求.   
mystr = Replace(TEXTLINE, [a5], [b5])  ->>>>>>>??
如何改成, 尋找特定字元,並將之後的字元改為大寫 ??
請再幫忙..




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... 我再趕快TRY 看看,,, 感謝..

Hsieh

回復 22# txiec

1. Sub Ex()
   
2. fd = ThisWorkbook.Path & "\" '文字檔目錄
   
3. fs = Dir(fd & "*.txt") '目錄中的文字檔名
   
4. Do Until fs = ""
   
5. Open fd & "temp.txt" For Output As #2 '準備暫存檔
   
6.   Open fd & fs For Input As #1 '開啟要轉為大寫的文字檔作輸入用
   
7.   Do While Not EOF(1)
   
8.    Line Input #1, mystr
   
9.    If mystr Like "M/C(*),*" Then '如果該字串類似此樣式
   
10.    restr = Mid(mystr, InStr(mystr, "),")) '取得要轉為大寫的部份字串
    
11.    mystr = Replace(mystr, restr, UCase(restr)) '將原變數
    
12.    End If
    
13.    Print #2, mystr '將已經轉成大寫的字串寫入暫存檔
    
14. Loop
    
15. Close #1
    
16. Close #2
    
17. Open fd & fs For Output As #2 '打開需轉寫的文字檔準備寫入
    
18.   Open fd & "temp.txt" For Input As #1 '開啟已轉成大寫的暫存檔
    
19.   Do While Not EOF(1)
    
20.   Line Input #1, mystr '讀出暫存檔資料
    
21.   Print #2, mystr '將暫存檔字串寫入需修改檔案
    
22.   Loop
    
23. Close #1
    
24. Close #2
    
25. Kill fd & "temp.txt" '刪除暫存檔
    
26. Loop
    
27. End Sub

複製代碼

txiec

回復 21# Hsieh


    DEAR Hsieh  

    再麻煩了.

Hsieh

回復 20# txiec
上傳你的文字檔作說明

txiec

DEAR..

太難了,TRY 不動,,,
還請各位先進,,, 幫幫....

txiec

回復 18# Hsieh


   DEAR Hsieh 　

　我TRY 看看,...

  THS.

Hsieh

回復 17# txiec


    給的方法你自己都不試嗎?

txiec

回復 16# Hsieh


    dear ..

是的,了解.  

是否有機會,直接找  
" ), "    之後,之字申,轉大寫
" M/C(2)  "

Hsieh

回復 15# txiec


    這種問題必需考慮所有文字檔的規則