关于Vb中字符串的比较问题

Question

Private Sub Command1_Click()
Dim sSection As String
    Dim sKeyName As String
    Dim sDefault As String
    Dim sProfile As String
    Dim lRetCode As Long
    Dim lSize As Long
    Dim Gs_SysName As String
    
     sSection = "CONFIG"
    sKeyName = "SysName"
    sDefault = "0000000000000000000000000000000000000000000000000000000000000000000"
    Gs_SysName = sDefault
    lSize = Len(sDefault)
    sProfile = App.Path & "\setup\Feq.ini"
    lRetCode = GetPrivateProfileString(sSection, sKeyName, sDefault, Gs_SysName, lSize, sProfile)
    Gs_SysName = Left(Trim(Gs_SysName), lRetCode)
    
    If StrComp(Gs_SysName, sDefault) Then
        MsgBox "请检查配置文件的参数值(Gs_SysName)!", vbInformation + vbOKOnly, "信息提示"    End If
End Sub问题：Gs_SysName, sDefault两个字符串的长度都是67，而且又都是0，但不知道为什么就是不相等！困惑亚！谢谢了！

Answer 1

乱猜下
len(gs_sysname)
len(sdefault)
这两个值比较看看?

Answer 2

lRetCode = GetPrivateProfileString(sSection, sKeyName, sDefault, Gs_SysName, lSize + 1, sProfile) 

Answer 3

GetPrivateProfileString取出来的后面可能有特殊的格式字符，如vbcrlf、vbcr、vblf、vbtab等等

Answer 4

你经过这两步还相等吗
lRetCode = GetPrivateProfileString(sSection, sKeyName, sDefault, Gs_SysName, lSize, sProfile) 
Gs_SysName = Left(Trim(Gs_SysName), lRetCode)
是不是有什么参数错了，再检查检查

Answer 5

经过逐步分析，发现Gs_SysName的第67位在 Gs_SysName = Left(Trim(Gs_SysName), lRetCode) 
这个步骤之后就从0变成了“空格”，不知道是为什么，还请各位多多帮忙，谢谢了！

Answer 6

lRetCode = GetPrivateProfileString(sSection, sKeyName, sDefault, Gs_SysName, lSize, sProfile) 
    Gs_SysName = Left(Trim(Gs_SysName), lRetCode) 这两句以后，Gs_SysName 还能是0000000..吗？

Answer 7

If StrComp(Gs_SysName, sDefault) Then 
   MsgBox "请检查配置文件的参数值(Gs_SysName)!", vbInformation + vbOKOnly, "信息提示" 
End If
你的意思是上面为什么没有弹出对话框“请检查配置文件的参数值(Gs_SysName)!"是吗？，你的比较StrComp(Gs_SysName, sDefault）相等返回的是０，如果非０才会弹出对话框阿，StrComp(Gs_SysName, sDefault）比较小于返回-1、相等0、大于返回1，而if语句是0相当于false,其他的非0相当于true.

Answer 8

GetPrivateProfileString取得的Gs_SysName应该在结尾有个'\0',要去掉才能比较的

Answer 9

Gs_SysName的信息是配置文件的值，你配置文件里面值是多少

Answer 10

Private Sub Command1_Click() 
Dim sSection As String 
    Dim sKeyName As String 
    Dim sDefault As String 
    Dim sProfile As String 
    Dim lRetCode As Long 
    Dim lSize As Long 
    Dim Gs_SysName As String 
    
    sSection = "CONFIG" 
    sKeyName = "SysName" 
    sDefault = "0000000000000000000000000000000000000000000000000000000000000000000" 
    Gs_SysName = Space(250)
    lSize = Len(Gs_SysName) 
    sProfile = App.Path & "\setup\Feq.ini" 
    Call GetPrivateProfileString(sSection, sKeyName, sDefault, Gs_SysName, lSize, sProfile) 
    lRetCode = InStr(1, Gs_SysName, Chr(0))
    Gs_SysName = Left(Gs_SysName, lRetCode-1) 
    
    If StrComp(Gs_SysName, sDefault) Then 
        MsgBox "请检查配置文件的参数值(Gs_SysName)!", vbInformation + vbOKOnly, "信息提示"     End If 
End Sub