如何利用vba撰寫文字的鏡射功能,再重新寫入新檔名
帖子 95 主題 29 精華 0 積分 150 點名 0 作業系統 windows2003 軟體版本 office 2003 閱讀權限 20 性別 男 來自 Kaoshiung 註冊時間 2010-11-5 最後登錄 2018-2-8
如何利用vba撰寫文字的鏡射功能,再重新寫入新檔名
Dear 各位前輩 : 鏡射.zip
帖子 5923 主題 13 精華 1 積分 5986 點名 0 作業系統 win10 軟體版本 Office 2010 閱讀權限 150 性別 男 來自 台灣基隆 註冊時間 2010-5-1 最後登錄 2022-1-23
8 #
發表於 2011-3-25 10:30
|
只看該作者
回復 7# cmo140497 Sub Ex() Dim Text As String, MyStr As String, Ar, i As Integer, A As String Text = "RowData:" Open "鏡射.txt" For Input As #1 Open "鏡射完成.txt" For Output As #2 Do While Not EOF(1) Input #1, MyStr A = "" If MyStr Like Text & "*" Then Ar = Split(Replace(MyStr, Text, ""), " ") For i = UBound(Ar) To 0 Step -1 A = A & " " & Ar(i) & " " Next Print #2, Text & A End If Loop Close #1 Close #2 End Sub 複製代碼
帖子 95 主題 29 精華 0 積分 150 點名 0 作業系統 windows2003 軟體版本 office 2003 閱讀權限 20 性別 男 來自 Kaoshiung 註冊時間 2010-11-5 最後登錄 2018-2-8
7 #
發表於 2011-3-25 09:05
|
只看該作者
回復 2# Hsieh
帖子 95 主題 29 精華 0 積分 150 點名 0 作業系統 windows2003 軟體版本 office 2003 閱讀權限 20 性別 男 來自 Kaoshiung 註冊時間 2010-11-5 最後登錄 2018-2-8
6 #
發表於 2011-3-25 08:22
|
只看該作者
[版主管理留言] Hsieh(2011-3-25 08:28): 請把你要的效果手動輸入示範
感謝大大抽空指教,小弟可能表達不是很smart,小弟想要做三個字元為一組做左右的鏡射,不是字元的鏡射,不知是否可行,謝謝!
帖子 95 主題 29 精華 0 積分 150 點名 0 作業系統 windows2003 軟體版本 office 2003 閱讀權限 20 性別 男 來自 Kaoshiung 註冊時間 2010-11-5 最後登錄 2018-2-8
5 #
發表於 2011-3-25 08:17
|
只看該作者
回復 4# GBKEE
帖子 5923 主題 13 精華 1 積分 5986 點名 0 作業系統 win10 軟體版本 Office 2010 閱讀權限 150 性別 男 來自 台灣基隆 註冊時間 2010-5-1 最後登錄 2022-1-23
4 #
發表於 2011-3-22 11:15
|
只看該作者
回復 3# cmo140497
帖子 95 主題 29 精華 0 積分 150 點名 0 作業系統 windows2003 軟體版本 office 2003 閱讀權限 20 性別 男 來自 Kaoshiung 註冊時間 2010-11-5 最後登錄 2018-2-8
3 #
發表於 2011-3-22 10:45
|
只看該作者
感謝神大大的指教,但小弟針對於以下這行不甚了解,可否請大大明示一下
發表於 2011-3-18 08:18
| 
發表於 2011-3-25 10:30
| 
