你这样写函数就可以解决这个问题 Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, iniFileName As String) As String Dim ResultString As String * 144, Temp As Long Dim s As String, i As Integer Temp& = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, iniFileName) If Temp& > 0 Then s = "" For i = 1 To 144 If Asc(Mid$(ResultString, i, 1)) = 0 Then Exit For Else s = s & Mid$(ResultString, i, 1) End If Next End If GetIniS = s End Function
Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, iniFileName As String) As String
Dim ResultString As String * 144, Temp As Long
Dim s As String, i As Integer
Temp& = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, iniFileName)
If Temp& > 0 Then
s = ""
For i = 1 To 144
If Asc(Mid$(ResultString, i, 1)) = 0 Then
Exit For
Else
s = s & Mid$(ResultString, i, 1)
End If
Next
End If
GetIniS = s
End Function
然后:msgbox asc(right(s,1))
看看ascii码是多少
免费的学习、交流、源码、工具网站,欢迎大家访问!
http://www.j2soft.cn/