标题:Winsock [帮忙,Hex和ASCII字符转换]
取消只看楼主
ak47my
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:229
专家分:0
注 册:2005-12-2
 问题点数:0 回复次数:3 
Winsock [帮忙,Hex和ASCII字符转换]
因为是winsock接收,
为什么不能将接收到的ascii弄的跟wpe接收的一样
特殊字符就用点来表示   ....

abcdef....aaaaa......

我自己写的转换函数都转出abcdef  口口aaaaa口.?.

这样的。。
有啥办法啊????
搜索更多相关主题的帖子: Hex ASCII Winsock 字符 
2008-12-03 21:43
ak47my
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:229
专家分:0
注 册:2005-12-2
得分:0 
多谢楼上
我的函数是
Public Function GbkStr(ByVal ss As String) As String
On Error Resume Next
Dim x As String
Dim Y As Variant
Dim i As Integer
Dim j As Integer
ReDim b(0 To (Len(ss) / 2)) As Byte

j = 0

   For i = 1 To Len(ss)
            
            x = Mid$(Trim(ss), i, 2)
            
            Y = CLng("&H" & x)
        
            If Y < 0 Then Y = Y + 65536
            
            
            b(j) = Y
            
            i = i + 1
            j = j + 1
            Next i
            
    GbkStr = StrConv(b, vbUnicode)
End Function


请问具体该怎么做啊???

提问:回答: 不提问怎么回答? 提问不清楚怎么回答?
2008-12-04 15:52
ak47my
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:229
专家分:0
注 册:2005-12-2
得分:0 
3Q 我试下

提问:回答: 不提问怎么回答? 提问不清楚怎么回答?
2008-12-04 16:20
ak47my
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:229
专家分:0
注 册:2005-12-2
得分:0 
可以了。谢谢了啊

提问:回答: 不提问怎么回答? 提问不清楚怎么回答?
2008-12-04 16:36



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-247635-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.351808 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved