123
返回列表 上一主題 發帖

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

txiec

帖子
23 
主題
6 
精華
0 
積分
36 
點名
0  
作業系統
VISTA 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
竹南 
註冊時間
2010-7-15 
最後登錄
2012-4-30 
1# 跳轉到 »
發表於 2011-2-9 18:11 | 只看該作者

求巨集-文字檔中之小寫英文轉大寫

DEAR 先進

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

PS: 有數個文字檔再檢查  


以上,再幫忙..

TOP

HUNGCHILIN
　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主Rank: 7Rank: 7Rank: 7

帖子
647 
主題
190 
精華
24 
積分
1037 
點名
0  
作業系統
windows7 
軟體版本
Office 2010 ; OOO3.0 ; Google 
閱讀權限
100 
性別
男 
來自
竹南 
註冊時間
2010-5-2 
最後登錄
2022-6-24 

貴賓勳章熱烈參與勳章好學求知勳章
2#
發表於 2011-2-9 18:53 | 只看該作者
本帖最後由 HUNGCHILIN 於 2011-2-9 19:31 編輯

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

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

等一下 我好像有改編過 到進階成品區去下載
2011-02-09 19-31-14.jpg
http://forum.twbts.com/thread-2599-1-1.html
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
277  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2011-2-9 19:15 | 只看該作者
回復 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
複製代碼
學海無涯_不恥下問

TOP

txiec

帖子
23 
主題
6 
精華
0 
積分
36 
點名
0  
作業系統
VISTA 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
竹南 
註冊時間
2010-7-15 
最後登錄
2012-4-30 
4#
發表於 2011-2-10 10:18 | 只看該作者
DEAR Hsieh 先生


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


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

ths.

txiec
hi...

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
277  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2011-2-10 10:44 | 只看該作者
回復 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
複製代碼
學海無涯_不恥下問

TOP

txiec

帖子
23 
主題
6 
精華
0 
積分
36 
點名
0  
作業系統
VISTA 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
竹南 
註冊時間
2010-7-15 
最後登錄
2012-4-30 
6#
發表於 2011-2-10 11:30 | 只看該作者
DEAR DEAR Hsieh 先生


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

不知,請再幫忙修一下,

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

以上,再麻煩了,,.
hi...

TOP

txiec

帖子
23 
主題
6 
精華
0 
積分
36 
點名
0  
作業系統
VISTA 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
竹南 
註冊時間
2010-7-15 
最後登錄
2012-4-30 
7#
發表於 2011-2-10 14:07 | 只看該作者
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...
hi...

TOP

txiec

帖子
23 
主題
6 
精華
0 
積分
36 
點名
0  
作業系統
VISTA 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
竹南 
註冊時間
2010-7-15 
最後登錄
2012-4-30 
8#
發表於 2011-2-11 11:03 | 只看該作者
DEAR . 先進,,


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


萬分感謝...


祝心順,,
hi...

TOP

txiec

帖子
23 
主題
6 
精華
0 
積分
36 
點名
0  
作業系統
VISTA 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
竹南 
註冊時間
2010-7-15 
最後登錄
2012-4-30 
9# 倒序看帖
打印
tT
發表於 2011-2-11 11:34 | 只看該作者

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

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
收藏 分享
hi...

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
10#
發表於 2011-2-13 13:36 | 只看該作者
你的意思是....:

原文是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]))
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
123
返回列表 上一主題