引數 S 中的內容是以下內容：
--
Content-Disposition: form-data; name="file1"; filename="F:\1.jpg"
Content-Type: application/octet-stream
很急 在線等 求大俠們指教.....
以上是 S 中的內容。
以下是執行 S 中內容的方法：
Private Function StringToMB(S)
Dim I, B, N
N = Len(S)
For I = 1 To N
B = B & ChrB(Asc(Mid(S, I, 1))) '提示在這一步出錯 溢位
Next
StringToMB = B
End Function
出現的問題是，在 S 的內容中，filename="" 中的內容中出現中文 就會報錯。
提示 溢位 這個問題怎么解決
我是菜鳥 求大俠 指教
uj5u.com熱心網友回復：
有沒有考慮過StrConv？把字串轉換為位元組陣列StrConv 函式
回傳按指定型別轉換的 Variant (String)。
語法
StrConv(string, conversion, LCID)
StrConv 函式的語法有下面的命名引數：
部分 說明
string 必要引數。要轉換的字串運算式。
conversion 必要引數。Integer。其值的和決定轉換的型別。
LCID 可選的。如果與系統LocaleID不同，則為LocaleID（系統LocaleID為預設值。）
設定值
conversion 引數的設定值為：
常數 值 說明
vbUpperCase 1 將字串文字轉成大寫。
vbLowerCase 2 將字串文字轉成小寫。
vbProperCase 3 將字串中每個字的開頭字母轉成大寫。
vbWide* 4* 將字串中單位元組字符轉成雙位元組字符。
vbNarrow* 8* 將字串中雙位元組字符轉成單位元組字符。
vbKatakana** 16** 將字串中平假名字符轉成片假名字符。
vbHiragana** 32** 將字串中片假名字符轉成平假名字符。
vbUnicode 64 根據系統的預設碼頁將字串轉成 Unicode。
vbFromUnicode 128 將字串由 Unicode 轉成系統的預設碼頁。
*應用到遠東國別。
**僅應用到日本。
注意 這些常數是由 VBA 指定的。可以在程式中使用它們來替換真正的值。其中大部分是可以組合的，例如 vbUpperCase + vbWide，互斥的常數不能組合，例如 vbUnicode + vbFromUnicode。當在不適用的國別使用常數 vbWide、vbNarrow、vbKatakana，和 vbHiragana 時，就會導致運行時錯誤。
下面是一些一般情況下的有效分界符：Null (Chr$(0))，水平制表符 (Chr$(9))，換行 (Chr$(10))，垂直制表符 (Chr$(11))，換頁 (Chr$(12)) ，回車 (Chr$(13))，空白 (SBCS) (Chr$(32))。在 DBCS中，空白的實際值會隨國家/地區而不同。
說明
在把 ANSI 格式的 Byte 陣列轉換為字串時，您應該使用 StrConv 函式。當您轉換 Unicode 格式的這種陣列時，使用賦值陳述句。
uj5u.com熱心網友回復：
引數C是什么意思，看不懂？uj5u.com熱心網友回復：
樓上的大哥 可不可以加你的 QQ 給那你發一些東西幫我分析一下 拜托了 我的QQ326963413uj5u.com熱心網友回復：
那里的引數 C 我沒有看到 2樓的大哥1樓的 大哥 可不可以加個QQ
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/150644.html
標籤：VB基礎類
上一篇：新手請教 用VBA 從網頁上獲取的英文內容可以直接翻譯成中文嗎？
下一篇：求大仙幫忙。。。