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

DEAR 先進

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

PS: 有數個文字檔再檢查

以上,再幫忙..

TOP

txiec

小學生 Rank: 1

帖子: 23
主題: 6
精華: 0
積分: 36
點名: 0
作業系統: VISTA
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 竹南
註冊時間: 2010-7-15
最後登錄: 2012-4-30

2^#

發表於 2011-2-10 10:18 | 顯示全部帖子

DEAR Hsieh 先生

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

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

ths.

txiec

hi...

TOP

txiec

小學生 Rank: 1

帖子: 23
主題: 6
精華: 0
積分: 36
點名: 0
作業系統: VISTA
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 竹南
註冊時間: 2010-7-15
最後登錄: 2012-4-30

3^#

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

4^#

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

5^#

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

6^# 倒序看帖

打印

字體大小: 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