標題: 如何利用vba撰寫文字的鏡射功能,再重新寫入新檔名 [打印本頁]

---

作者: cmo140497    時間: 2011-3-18 08:18     標題: 如何利用vba撰寫文字的鏡射功能,再重新寫入新檔名

Dear 各位前輩 :
小弟有一文字檔,要如何利用excel開啟後指定RowData冒號後之資料行列,並鏡射其後的資料後,再另存新檔呢?


[attach]5037[/attach]

---

作者: Hsieh    時間: 2011-3-18 08:39

回復 1# cmo140497

不知道是不是這個意思?

1. Sub nn()
   
2. test = "RowData:"
   
3. Open "鏡射.txt" For Input As #1
   
4. Open "鏡射完成.txt" For Output As #2
   
5. Do While Not EOF(1)
   
6.    Input #1, mystr
   
7.    If mystr Like test & "*" Then Print #2, StrReverse(Replace(mystr, test, ""))
   
8. Loop
   
9. Close #1
   
10. Close #2
    
11. End Sub

複製代碼

---

作者: cmo140497    時間: 2011-3-22 10:45

感謝神大大的指教,但小弟針對於以下這行不甚了解,可否請大大明示一下
If mystr Like test & "*" Then Print #2, StrReverse(Replace(mystr, test, ""))
如果在rowdata右側的資料,小弟想把它三個字元當作一個數值單位來做左右鏡射,不知如何修改?

---

作者: GBKEE    時間: 2011-3-22 11:15

回復 3# cmo140497
試試看
If mystr Like test & "*" Then Print #2, Format(StrReverse(Replace(mystr, test, "")), "000")

---

作者: cmo140497    時間: 2011-3-25 08:17

回復 4# GBKEE


    Dear GB大大 :
好像輸出結果相同,可否請您再協助一下,感謝!

---

作者: cmo140497    時間: 2011-3-25 08:22

感謝大大抽空指教,小弟可能表達不是很smart,小弟想要做三個字元為一組做左右的鏡射,不是字元的鏡射,不知是否可行,謝謝!

---

作者: cmo140497    時間: 2011-3-25 09:05

回復 2# Hsieh


    不好意思,再次打擾您,如下問題
RowData:___ ___ ___ 123 ___ 456 ___ 789
RowData:___ abc ___ def ___ ___ ___ ghi ___ jkl
鏡射 :
RowData:789 ___ 456 ___ 123 ___ ___ ___
RowData:jkl ___ ghi ___ ___ ___ def ___ abc ___
其實應該講成最右邊位址變成最左邊,最左邊變成最右邊的位址,不是字元的鏡射,789變987,歹勢,再度麻煩大大的指正,謝謝!

---

作者: GBKEE    時間: 2011-3-25 10:30

回復 7# cmo140497

1. Sub Ex()
   
2.     Dim Text As String, MyStr As String, Ar, i As Integer, A As String
   
3.     Text = "RowData:"
   
4.     Open "鏡射.txt" For Input As #1
   
5.     Open "鏡射完成.txt" For Output As #2
   
6.         Do While Not EOF(1)
   
7.             Input #1, MyStr
   
8.             A = ""
   
9.             If MyStr Like Text & "*" Then
   
10.                 Ar = Split(Replace(MyStr, Text, ""), " ")
    
11.                 For i = UBound(Ar) To 0 Step -1
    
12.                     A = A & " " & Ar(i) & " "
    
13.                 Next
    
14.                 Print #2, Text & A
    
15.             End If
    
16.         Loop
    
17.     Close #1
    
18.     Close #2
    
19. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)