12
返回列表 上一主題 發帖

儲存格內容及特殊符號問題

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-7-23 10:49 | 只看該作者

儲存格內容及特殊符號問題

各位大哥好：
我客戶系統匯出excel檔案遇到2問題請教：
1.在excel上所看到的資料正常，但是若另存成TXT檔開頭和結尾有多出 "請問我應如何清除它
2.中間的"Ø"因需要我想用AAA取代又該如何，若用手動查找取代沒問題但是若以巨集會將全部的O給取代掉。
上列問題我想用vba處裡是否可行。 test.rar (5.71 KB)
收藏 分享
lionliu

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
2#
發表於 2015-7-25 00:56 | 只看該作者
"Ø"這個符號ASCII不是216就是248
偏偏VBA的ASCII只能支援0~128

驗證方式如下;
Sub VB_ASCII()
Dim x As Integer

Cells(1, 1) = "Item"
Cells(1, 2) = "Chr"
Cells(1, 3) = "Asc"
   
For x = 0 To 255
    Cells(x + 2, 1) = x
    Cells(x + 2, 2) = Chr(x)
    Cells(x + 2, 3) = Asc(Chr(x))
Next x
End Sub
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
3#
發表於 2015-7-25 00:58 | 只看該作者
解法二
Replace What:=range("B1"), Replacement:="aa"

B1欄位Hardcode"Ø"

呵呵呵~ 笨方式^^"
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
4#
發表於 2015-7-25 07:15 | 只看該作者
以你那個檔案而言
你應該列舉一下
輸出的 txt檔內容, 你想要的是長成何模樣

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
5#
發表於 2015-7-25 11:07 | 只看該作者
本帖最後由 lpk187 於 2015-7-25 11:12 編輯

回復 2# Min

"Ø"這個符號VBA是可以取得的
  1. Sub VB_ASCII()
  2. Dim x As Integer

  4. Cells(1, 1) = "Item"
  5. Cells(1, 2) = "Chr"
  6. Cells(1, 3) = "Asc"
  7.    
  8. For x = 0 To 255
  9.     Cells(x + 2, 1) = x
  10.     Cells(x + 2, 2) = ChrB(x)
  11.     Cells(x + 2, 3) = AscB(ChrB(x))
  12. Next x
  13. End Sub
複製代碼
VBA不只Chr(n)可以使用，還有ChrB(n)和ChrW(n)
  1. Public Sub test()
  2. Dim n As String
  3. Dim arr(1 To 256, 1 To 512)
  4. n = 0
  5. For i = 1 To 256
  6.     For j = 1 To 256
  7.         arr(j, i * 2 - 1) = ChrW(n)
  8.         arr(j, i * 2) = n
  9.         n = n + 1
  10.     Next
  11. Next
  12. Range("A1").Resize(256, 512) = arr
  13. End Sub
複製代碼
Chr 函數
請參閱     範例     特性

傳回一個含有與指定的字元碼相關之字元的 String。

語法

Chr(charcode)

charcode 引數是一個用來識別某字元的Long。

請注意

0 到 31 之間的數字與一般、非列印的ASCII碼相同，例如，Chr(10) 會傳回換行字元。charcode 的正常範圍為 0-255。然而，在DBCS系統，charcode 的實際範圍為 -32768 到 65535。

附註 ChrB 函數是使用於含有位元組資料的 String，而非傳回一個字元，其有可能是一或兩個位元組，而 ChrB 都是傳回一個位元組。ChrW 函數則傳回一個包含Unicode 字元的String，若在不支援Unicode的平台上，其功能與Chr函數相同。

備註   Visual Basic for the Macintosh 不支援 Unicode 字串。所以，ChrW(n) 無法傳回 n 個數值 (範圍為 128 到 65,535) 的所有 Unicode 字元，因為它位在 Windows 環境中。相反地，ChrW(n) 會企圖為 n 大於 127 的 Unicode 數值進行「最佳推測」。因此，您不可以在 Macintosh 環境中使用 ChrW。

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
6#
發表於 2015-7-25 11:19 | 只看該作者
回復 5# lpk187


ChrW 編碼應該和 Ascii 不一樣哦

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
7#
發表於 2015-7-25 11:38 | 只看該作者
本帖最後由 lpk187 於 2015-7-25 11:43 編輯

回復 6# bobomi
  1. Sub VB_ASCII()
  2. Dim x As Integer

  4.    
  5. For x = 0 To 255
  6.     Cells(x + 2, 1) = x
  7.     Cells(x + 2, 2) = Chr(x)
  8.     Cells(x + 2, 3) = ChrB(x)
  9.     Cells(x + 2, 4) = ChrW(x)
  10.     Cells(x + 2, 5) = AscW(ChrW(x))
  11. Next x
  12. End Sub
複製代碼
除了Chr只能顯示0~127外編碼看不出哪裡不同
ChrW(n) 只是不能在 Macintosh 環境中使用

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
8#
發表於 2015-7-25 11:52 | 只看該作者
回復 7# lpk187


我指的是 ChrW 和 Ascii 編碼  
ChrW(224)  = à
Ascii (224) = ‡

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2015-7-25 13:52 | 只看該作者
回復 1# lionliu
1.在excel上所看到的資料正常，但是若另存成TXT檔開頭和結尾有多出 "請問我應如何清除它
請參考這裡

2.中間的"Ø"因需要我想用AAA取代又該如何，若用手動查找取代沒問題但是若以巨集會將全部的O給取代掉。
請上傳你巨集的程式碼!
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
10#
發表於 2015-7-25 13:52 | 只看該作者
回復 8# bobomi

不好意思，再次打擾！
我剛查了微軟的ASCII擴充碼https://support.office.com/zh-tw/article/ASCII-%E5%AD%97%E5%85%83%E8%A1%A8-D13F58D3-7BCB-44A7-A4D5-972EE12E50E0?ui=zh-TW&rs=zh-TW&ad=TW#bm5
也是和你PO的圖不一樣！   ??
而且查了許多張關於ASCII碼圖片，則是224這個碼卻有好幾種，於是我矇了

TOP

        靜思自在 : 站在半路，比走到目標更辛苦。
12
返回列表 上一主題