1樓：
dim i as integer
text2=""
for i = 1 to len(text1)text2 = text2 + format(hex(asc(mid(text1, i, 1))),"0000")
next
以上為熱心網友的結果，只是為了準確轉換數字與漢字，加了一點東西.
2樓：
text2.text = hex(asc(text1.text))
該死,這樣不行.
3樓：匿名使用者
private sub command1_click()for i = 1 to len(text1.text)n = jinzhizhuanh(asc(mid(text1.text, i, 1)))
jieguo = jieguo & n & " "
next i
text2.text = jieguo
end sub
function jinzhizhuanh(n as integer) as string
dim a(15) as string
b = "0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f"
for i = 0 to 15
a(i) = split(b, ",")(i)next i
do while n > 15
s = int(n / 16)
k = a(n - s * 16) & kn = s
loop
k = a(n) & k
jinzhizhuanh = k
end function
vb中 如何將16進位制的 ascii碼序列 轉換為 字串
4樓：匿名使用者
理論上是對的,可以顯示,但是不能用你的**除錯.
是不是埠傳過來的資料太慢了呢?
這樣測試一下:
u***eera.getdata strdat, vbbyte + vbarray 'winsock接收到的資料 16進位制
dim l as long, m as string, n as string, k as string
dim temparr() as string
for l = 0 to ubound(strdat)
m = hex(strdat(l)) '資料已經轉換為16進位制 肯定沒問題 試過了
n = n & chrw("&h" + m) 』這句我想將字元存成字串，之後無法顯示，請賜教
』n= chrw("&h" + m) 單個字元可以存進來 並且顯示
sleep 500 '暫停一下
next
txtoutput.text = n '我想將存好的字串顯示 如果是n=n+的那個無法顯示
5樓：匿名使用者
我感覺你的chrw沒有問題,問題出在n上,n沒有初值,錯誤不可預見.可以這樣
dim l as long, m as string, n as string, k as string
n = ""
dim temparr() as string......應該就沒問題了
補充:換成
或試試
6樓：
先得出，後反向字串的函式，再不管用兩個一塊上，咋？
7樓：匿名使用者
把這句改一下試試：
n=n+chrw()
改為n=n & chrw()
如何將vb中的字串轉換成ascii碼
8樓：寒信
dim i as integer, str as string, ascstr as string
str = inputbox("請輸入字串")for i = 1 to len(str)ascstr = ascstr & cstr(asc(mid(str, i, 1)))
next i
print ascstr
求jsp表單獲取字串，然後轉換為日期型別，存入資料庫
1.string stime request.getparameter stime 得到表單提交的字元 2 dateformat sf new dateformat yyyymmdd dateformat sf1 new dateformat yyyy mm dd stime sf1.format ...
如何將c中一維陣列轉換為字串，C 怎麼把一堆陣列，轉化為字串？
雖然我不太會c 但是把我的想法給你吧。string arrtostr char arr return str c 怎麼把一堆陣列，轉化為字串？ 玩轉資料處理 string filenames directory.getfiles strpath fileinfo fileinfo for int i...
VB如何將數字字串轉換成數字用以計算
用val就可以了，比如a是字元型的變數 a 1500 b val a 這時候b就是1500 數值 了。 十六進位制自己搞個函式弄吧，a f 對應 10 15 然後按權位 加起來就10進位制了 hf0 十六進位制沒h。 蔡瑀 if isnumeric val then val fix val else...