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

txiec

DEAR 先進

求巨集-文字檔中之小寫英文轉大寫
EX: 檢視文字檔內之英文字,如有小寫,將它改為大寫取代之.   

PS: 有數個文字檔再檢查  


以上,再幫忙..

HUNGCHILIN

這種巨集需求量很大
網上也頗多
待我找一下

---------------------------------------------------------------------------
我很久以前有發過帖 在OFFICE精英俱乐部『 VBA交流 』Excel 增益集(加載宏)專區
#13 帖
*********************************************
現在放上來的是我以前的一個作品
是用來轉換英文大小寫用的
只要開啟SETUP那個檔
按SETUP就可以了
*********************************************
[ 本帖最后由 HUNGCHILIN 于 2006-10-22 21:37 编辑 ]
自動安裝(&使用說明)大小寫轉換.rar (86.09 KB)

等一下 我好像有改編過 到進階成品區去下載

下載 (11.06 KB)

2011-2-9 19:31

http://forum.twbts.com/thread-2599-1-1.html

Hsieh

回復 1# txiec

1.     Sub nn()
   
2. fs = "ucase.txt" '文字檔位置
   
3. fd = "temp.txt" '暫存檔預設目錄我的文件
   
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

複製代碼

txiec

DEAR Hsieh 先生


不好意思,又要麻煩您了,  
是否可幫忙改一下,  
ex:
,在 A資料夾中之 所有 txt  檔,     中之所有英文字,小寫改大寫, 大寫改小寫,  
儲存於原資料夾,  


拜個晚年,, 新年快樂..

ths.

txiec

Hsieh

回復 4# txiec

1. Sub nn()
   
2. fs = Dir("D:\A\*.txt") 'TXT檔案位置
   
3. Do Until fs = ""
   
4. fd = "temp.txt" '暫存檔預設目錄我的文件
   
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

複製代碼

txiec

DEAR DEAR Hsieh 先生


不好意思.. 跑不動, 出現:找不到檔案.. :  

不知,請再幫忙修一下,

另請教,
1. 如來源資料夾,要設在EXCEL A2欄位中,應如何修.
2. 如來源檔案,無附檔名. 那用 fd = "temp.txt" '暫存檔預設目錄我的文件,回存於時,會影響檔名,

以上,再麻煩了,,.

txiec

DEAR Hsieh 先生


不好意思.. 跑不動, 出現:找不到檔案.. :  

不知,請再幫忙修一下,

1. 如來源資料夾,要設在EXCEL A2欄位中,應如何修.
2. 如來源檔案,無附檔名. 那用 fd = "temp.txt" '暫存檔預設目錄我的文件,回存於時,會影響檔名,  
3. 只需求檢查及改內容中之特別名稱之後之字元.
EX:

A資料夾中之
12 檔案中之

Ad(2): aer2,AER3,     
We1 Rf   : aer2
We2 Rf   : AER3     

轉成:

AD(2): AER2,AER3,   
We1 Rf   : AER2
We2 Rf   : AER3     



13 檔案中之

Ad(3): aers4,aes5,AERS6   
We1 Rf   : aers4
We2 Rf   : aes5     
We3 Rf   : AERS6      


轉成:

Ad(3): AERS4,AES5,AERS6   
We1 Rf   : AERS4
We2 Rf   : AES5     
We3 Rf   : AERS6      








以上,再麻煩了,,.

hi...

txiec

DEAR . 先進,,


請再撥空,給個簡單可用之巨集程式,,,,


萬分感謝...


祝心順,,

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

kimbal

你的意思是....:

原文是abcde
1.找cd
換成ZX
->
abZXe

還是....
2.
找cd
換成zx
->
abzxE

還是....
3.
找cd
換成zx
->
CDZXE

如果你提供的代碼沒錯
1的做法:
mystr = Replace(TEXTLINE, [a5], UPPER([b5]))
3的做法:
mystr = UPPER(Replace(TEXTLINE, [a5], [b5]))