123
返回列表 上一主題 發帖

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

txiec

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


    dear Hsieh  

    sorry.  

    需求說的不是很清楚.. 附上附件.


　　　再麻煩您了。。。　

原DATA.rar (1.86 KB)

data 錯誤轉換 (2).rar (7.26 KB)

hi...

TOP

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
14#
發表於 2011-2-14 10:15 | 只看該作者
本帖最後由 Hsieh 於 2011-2-14 10:22 編輯

回復 13# txiec
  1. Sub nn()
  2. mystr = "姓名: a,b,C,D " '原字串
  3. replacestr = "姓名: " '搜尋字串(不轉大寫)
  4. k = InStr(mystr, replacestr) + Len(replacestr)
  5. temp = Mid(mystr, k) '欲轉成大寫字串
  6. MsgBox Replace(mystr, temp, UCase(temp))
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

txiec

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


    DEAR Hsieh

    方便的話, 給個範例... 因,不是很懂的VB...
hi...

TOP

txiec

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


DEAR

不好意意.
再解釋一下,

是,要找,特定字申,並將此字申之後之所有字元改成大寫.
EX:
姓名: a,b,C,D

-->

姓名: A.B,C,D  

其中:姓名: 回定..
之後英文是會有不同, ,
只要將字元改成大寫.即可.
hi...

TOP

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
11#
發表於 2011-2-13 14:17 | 只看該作者
字串中搜尋特定字元位置可使用instr找到位置
用mid獲得與轉寫的字串
再使用Ucase轉成大寫
最後使用replace取代
學海無涯_不恥下問

TOP

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

txiec

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


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


萬分感謝...


祝心順,,
hi...

TOP

txiec

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


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

不知,請再幫忙修一下,

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

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

TOP

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 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

        靜思自在 : 我們要做好社會的環保，也要做好內心的環保。
123
返回列表 上一主題