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

1 23

返回列表下一主題上一主題發帖

txiec

小學生 Rank: 1

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

5^# 跳轉到 »

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

DEAR Hsieh 先生

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

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

ths.

txiec

hi...

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 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兔年全勤獎章

4^#

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

HUNGCHILIN

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

版主 Rank: 7 Rank: 7 Rank: 7

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

貴賓勳章熱烈參與勳章好學求知勳章

3^#

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