帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2010-12-14 23:17 | 只看該作者

[發問] 想請問Excel的 chr 函數的問題

本帖最後由 luhpro 於 2010-12-14 23:21 編輯

Sub main()
  Dim sChar$

  Open "C:\test.bin" For Binary As #1
sChar = Right(Chr(18), 1)
Put #1, 1, sChar
sChar = Right(Chr(54), 1)
Put #1, 2, sChar
sChar = Right(Chr(238), 1)
Put #1, 3, sChar
  Close #1
End Sub

如上述程式,
想寫入多個指定字元到二進位檔案內.

試過當ascii碼數不大時寫入的字元都正確,
但那個 shr(238) 會變成將 chr(0) 寫入檔案,
即時視窗打上 ?asc(chr(238)) 結果也是 0

但 Excel 中關於 chr 的說明上有註明 :
charcode 引數是一個用來識別某字元的 Long。
數字型態為 Long 不知為何 238 卻轉不出正確的字元呢?

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

7^#

發表於 2010-12-19 19:15 | 只看該作者

本帖最後由 luhpro 於 2010-12-19 19:19 編輯

回復 6# Min
這跟我的理解不同呢.

你所給連結中提到的 uuencode 是在郵件系統傳輸的一個 "編碼" 程式，是一種 "二進位" 到 "文字" 的編碼,
所以它並非是一種 "二進制檔案".

若我們從底下這個連結中看 :
文字文件 : http://zh.wikipedia.org/zh-tw/%E6%96%87%E5%AD%97%E6%AA%94 (插入鏈接功能不能用?)
裡面有一段話倒是可以根本闡明所謂的二進制檔案是怎麼回事 :

一般來說，電腦可以分為兩類：文字文件和二進制檔案。

也就是說只要不是 "文字文件" 的就是 "二進制檔案". (包括 .EXE程式檔甚至是 .MP4 音訊壓縮檔都是, 差別只在於其用途不同而有其特定的 "識別" 格式存在)

而文字檔案之所以是文字檔案,
在於其定義中有闡明 :
文字文件可以包含 "純文字"，透過在文字文件最後一行後放置檔案結束標誌來指明檔案的結束。
在其中除了換行 LF (0x0D) 與返首 CR(0x0A) 字元以外,
全部都是 "可視字元".
而 "二進制檔案" 中並非只有可視字元.

回到原主題 :
在 Excel 中若想以 Open binary 指令來建立 "二進制" 檔案,(當純只是想存放 Ascii 碼為 0 ~ 255 的字元資料,而暫不論其格式)
正確的使用方式為何?

另 chr() 函數是否真的只能產生 ascii 碼為 128 以下的字元呢?
若真是如此, 那其說明中所謂的 :
"charcode 的正常範圍為 0-255" 及 "charcode 引數是一個用來識別某字元的 Long"
又有何意義呢?
直接告訴我們其範圍為 0 - 127 與其格式為 Byte 不就足夠了嗎?

TOP

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章帥哥勳章

6^#

發表於 2010-12-16 06:47 | 只看該作者

不一樣喔~
二進位就只有0與1...
http://zh.wikipedia.org/zh/Uuencode

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

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

5^#

發表於 2010-12-16 00:18 | 只看該作者

回復 4# Min

?
二進位檔不就是寫入字元的 Ascii碼嗎?
Ascii 範圍 0 ~ 255

TOP

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章帥哥勳章

4^#

發表於 2010-12-16 00:14 | 只看該作者

是轉二進位還是轉Ascii?

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

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

3^#

發表於 2010-12-15 23:59 | 只看該作者

本帖最後由 luhpro 於 2010-12-16 00:14 編輯

回復 2# Min

我主要的用途是要寫到二進位檔內,
而不是想顯示出來文字,
我試過在同一台電腦中用 C 語言用 chr() 函數寫入該字元到二進位檔是沒問題的.

主要是在公司 Excel 軟體直接可以使用,
但 C 礙於版權問題在公司不能安裝及使用.

此前也已經實現成功其反向作業 : 從二進位檔中還原出本來的數值 :

Sub Main()

  Dim iColumn%, iRow%
  Dim bData As Byte
  Dim lPosition As Long

  Close
  With Sheets("Sheet1")
lPosition = 1
Open "C:\test.bin" For Random As #1 Len = 1
   iColumn = 1
   iRow = 1

   While Not EOF(1)
      Get #1, lPosition, bData

      .Cells(iRow, iColumn) = bData
      iColumn = iColumn + 1

      If iColumn > 256 Then
      iColumn = 1
      iRow = iRow + 1
      End If
      lPosition = lPosition + 1
   Wend

Close #1
  End With

End Sub

我猜測在 MS 的 Basic 上實作應該也不會有問題,
是否是我之前所用的方式錯誤,
亦或有可能是 Excel VBA 本身就實現不出來呢?
----------------------------------------------------------------
補充 :
剛剛又試著用 Random 檔的方式實做成功 :
Sub Main()

  Dim iI%
  Dim bChar As Byte
  Dim lPosition As Long

  Close
lPosition = 1
Open "C:\test1.bin" For Random As #1 Len = 1

   For iI = 255 To 0 Step -1
      bChar = iI
      Put #1, lPosition, bChar
      lPosition = lPosition + 1
   Next iI

Close #1

End Sub

但不知 Binary 檔 (循序寫入, 不用管下個資料要寫到檔案中的第幾個位置) 的開啟方式又要如何實作呢?

TOP

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章帥哥勳章

2^#

發表於 2010-12-15 22:59 | 只看該作者

特殊字元顯示不出來...
就直接問 ?chr(238) 就顯示不出來了....
我之前有也遇過是有些電腦可以Print出來有些不行!
我最後是改其它符號解決~

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

TOP