我用String 接收服务器上的Xml 数据,如果把Buffer 设置的足够大,一次读出则没有什么问题,如果使用一个固定的buffer 读这些数据,而每次根据读回的数据长度把数据和并为一个完成的缓冲区,则在合并处出现一些多余的空格。代码如下
Dim strResult As String
Dim retLen As Long
Dim bRet As Boolean
Do
Dim buffer As String * &H800
bRet = InternetReadFile(hHttpOpenRequest, buffer, &H20, retLen)
If (retLen > 0) Then
strResult = strResult & Left(buffer, retLen)
Debug.Print Len(strResult)
Debug.Print strResult
End If
Loop While retLen > 0正常数据
<?xml version='1.0'?>
<document>
<user userid='112121' username='zych72'>
<VIEWREPORT/><AUDITREPORT/><SUBMITREPORT/>
</user>
</document>
问题数据
<?xml version='1.0'?>
<document>
<user userid='112121' username='zych72'>
<VIEWREPORT/><AUDITREPORT/><SUBMIT REPORT/> ---------这里多出来空格
<ExpiredTime value='2003-04-17'/>
</user>
</document>
请问这是什么原因,如何解决?
Dim strResult As String
Dim retLen As Long
Dim bRet As Boolean
Do
Dim buffer As String * &H800
bRet = InternetReadFile(hHttpOpenRequest, buffer, &H20, retLen)
If (retLen > 0) Then
strResult = strResult & Left(buffer, retLen)
Debug.Print Len(strResult)
Debug.Print strResult
End If
Loop While retLen > 0正常数据
<?xml version='1.0'?>
<document>
<user userid='112121' username='zych72'>
<VIEWREPORT/><AUDITREPORT/><SUBMITREPORT/>
</user>
</document>
问题数据
<?xml version='1.0'?>
<document>
<user userid='112121' username='zych72'>
<VIEWREPORT/><AUDITREPORT/><SUBMIT REPORT/> ---------这里多出来空格
<ExpiredTime value='2003-04-17'/>
</user>
</document>
请问这是什么原因,如何解决?
解决方案 »
- 请问,如何把一张图片每个点的像素保存为一个数组?
- 前仆后继,一往直前,再接再厉,梅开九度,继续提问:SQL语句问题. 这次的问题好像有点复杂(只是复杂,还是不难),大家还来帮我哦!!!帮顶也有分.
- 关于数据类型
- 读注册表 问题 RegQueryValueEx(keyid, subkey, 0&, REG_SZ, ByVal keyvalue, bufsize) 其中的 0& 是什么意思啊
- 找不到DLL
- 老是有人问我软件合作问题,答应不答应?
- 如何在Text控件內輸入繁體字,如用“速成”輸入法輸入
- 悬浮窗体的制作
- 第一次来,问一个困惑我很久的问题
- pgif.ocx控件哪位大侠有?
- 请教高手:在RichTextBox或textbox里如何打开一个网页,谢谢!!!
- 键盘输入问题?
InternetReadFile是什么?这个是关键!
hInternetConnect = InternetConnect(hInternetSession, strHost, _
strPort, vbNullString, vbNullString, INTERNET_SERVICE_HTTP, 0, 0)
hHttpOpenRequest = HttpOpenRequest(hInternetConnect, "POST", _
strURI + "?" + postContent, "HTTP/1.1", vbNullString, 0, internetFlag, 0)
InternetOpen, InternetConnect, HttpOpenRequest, InternetReadFile 都是 wininet api