Dim strTmp As String
Dim nStart As Integer, nEnd As Integer, i As Integer
Dim sArray() As String
Call GetPrivateProfileSection(strSection, strReturn, Len(strReturn), strIniFile)
strTmp = strReturn
i = 1
Do While strTmp <> ""
nStart = nEnd 1
nEnd = InStr(nStart, strReturn, vbNullChar)
strTmp = Mid$(strReturn, nStart, nEnd - nStart)
If Len(strTmp) > 0 Then
ReDim Preserve sArray(1 To i)
sArray(i) = strTmp
i = i 1
End If
Loop
GetInfoSection = sArray
End Function
注释：————————（2）————————————
文章整理：西部数码--专业提供域名注册、虚拟主机服务
注释：作用：去掉字符串中的首尾空格、所有无效字符
注释：测试用例
注释：Dim strRes As String
注释：Dim strSour As String
注释：
注释：strSour = " " & vbNullChar & vbNullChar & " ab cd" & vbNullChar
注释：strRes = zqTrim(strSour)
注释：
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
