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

txiec

小學生 Rank: 1

帖子: 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

超級版主 Rank: 8 Rank: 8

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

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

Sub nn()
mystr = "姓名: a,b,C,D " '原字串
replacestr = "姓名: " '搜尋字串(不轉大寫)
k = InStr(mystr, replacestr) + Len(replacestr)
temp = Mid(mystr, k) '欲轉成大寫字串
MsgBox Replace(mystr, temp, UCase(temp))
End Sub

複製代碼

學海無涯_不恥下問

TOP

txiec

小學生 Rank: 1

帖子: 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

小學生 Rank: 1

帖子: 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

超級版主 Rank: 8 Rank: 8

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

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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

小學生 Rank: 1

帖子: 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

小學生 Rank: 1

帖子: 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

小學生 Rank: 1

帖子: 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

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2011-2-10 10:44 | 只看該作者

回復 4# txiec

Sub nn()
fs = Dir("D:\A\*.txt") 'TXT檔案位置
Do Until fs = ""
fd = "temp.txt" '暫存檔預設目錄我的文件
Open fs For Input As #1
Open fd For Output As #2
Do While Not EOF(1)
Line Input #1, TextLine
Print #2, UCase(TextLine)
Loop
Close #1
Close #2
Open fd For Input As #1
Open fs For Output As #2
Do While Not EOF(1)
Line Input #1, TextLine
Print #2, UCase(TextLine)
Loop
Close #1
Kill fd
Close #2
fs = Dir
Loop
End Sub

複製代碼

學海無涯_不恥下問

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]