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: 7 Rank: 7 Rank: 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

超級版主 Rank: 8 Rank: 8

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

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

3^#

發表於 2011-2-9 19:15 | 只看該作者

回復 1# txiec

Sub nn()
fs = "ucase.txt" '文字檔位置
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
End Sub

複製代碼

學海無涯_不恥下問

TOP

txiec

小學生 Rank: 1

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

超級版主 Rank: 8 Rank: 8

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

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

5^#

發表於 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

txiec

小學生 Rank: 1

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

小學生 Rank: 1

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

小學生 Rank: 1

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

小學生 Rank: 1

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

版主 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