VB读取INI中字符串时，遇到一个难题

Question

CFG.ini内容如下：
[PatchFiles]
1=setup.exeVB使用了ini读写的bas模块，VB代码如下：
  Dim ret     As Long
  Dim Buff     As String
  Dim sPatchname as String
  Buff = String(255, 0)
  ret = GetPrivateProfileString("PatchFiles", 1, "", Buff, "256", App.Path & "\cfg.ini")
  sPatchname = Buff
------------------------------------
问题：此时msgbox sPatchname值为setup.exe，看似是对的，
但使用kill spathcname 删除此文件时，则找不到该文件
百思不得其解，最后发现len(setup.exe)的值为255,且trim和replace掉空格还是不行该如何解决？让spathcname变量获取正确的文件名？？

Answer 1

补充：kill sptchname 已经做了路径
kill app.Path & "\" &spatchname还是不行！

Answer 2

试试先replace(sPatchname,chr(0),"")再用trim

Answer 3

利用函数把sPatchname的具体内容打印出来，在决定用什么函数处理。
text=""
for i=1 to len(sPatchname)
  text=str(i)+":"+hex(mid$(sPatchname))+chr(13)+chr(10)
next i

Answer 4

Dim FILE_NAME As String
Dim Str As String
Dim I As Integer
On Error Resume Next
FILE_NAME = App.Path & "\config.ini"
Dim Str1 As String * 50
Call GetPrivateProfileString("设置", "设置", "", Str1, 256, FILE_NAME)
For I = 1 To 50
   If Asc(Mid(Trim(Str1), I, 1)) = 32 Or Asc(Mid(Trim(Str1), I, 1)) = 0 Then
   Else
       Str = Str & Mid(Trim(Str1), I, 1)
   End If
Next
SheZ = Trim(Str)      '这才是真正读取出来的

Answer 5

以前收藏的操作ini文件的类代码,仅供参考吧Option Explicit'--------classIniFile.cls 代码----------------'这里定义了一个classIniFile类'一个绝对经典的在VB中操作.ini文件的通用类源代码'程序编写：中国青岛·许家国' 2002.6.16'E－Mail: [email protected]'HomePage: http://www.gojclub.com''Private member that holds a reference to'the path of our ini filePrivate strINI As String        '初始化文件'Windows API DeclaresPrivate Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
    (ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, _
    ByVal lpString As Any, _
    ByVal lpFileName As String) As Long
    
    
Private Declare Function GetPrivateProfileString _
    Lib "kernel32" Alias "GetPrivateProfileStringA" _
    (ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, _
    ByVal lpDefault As String, _
    ByVal lpReturnedString As String, _
    ByVal nSize As Long, _
    ByVal lpFileName As String) As Long
    Private Function MakePath(ByVal strDrv As String, ByVal strDir As String) As String    ' Makes an INI file: Guarantees a sub dir    Do While Right$(strDrv, 1) = "\"
        strDrv = Left$(strDrv, Len(strDrv) - 1)
    Loop
    
    Do While Left$(strDir, 1) = "\"
        strDir = Mid$(strDir, 2)
    Loop
    
    ' Return the path
    
    MakePath = strDrv & "\" & strDirEnd Function
Private Sub CreateIni(strDrv As String, strDir As String)    ' Make a new ini file
    
    strINI = MakePath(strDrv, strDir)End Sub
'--------------------------
'功能：写入ini文件
'--------------------------
Public Sub WriteIniKey(strSection As String, strKey As String, strValue As String)    ' Write to strINI
    
    WritePrivateProfileString strSection, strKey, strValue, strINIEnd Sub
'---------------------------
'功能：从ini文件中获取信息
'---------------------------
Public Function GetIniKey(strSection As String, strKey As String) As String    On Error GoTo errhandle
    Dim strTmp  As String
    Dim lngRet  As String
    Dim I       As Integer
    Dim strTmp2 As String
    
    '先将strtmp定义成1024个字符的长度，保证一定能装下返回的字串
    strTmp = String$(1024, Chr(32))    'lpApplicationName String，欲在其中查找条目的小节名称。这个字串不区分大小写。如设为vbNullString，就在lpReturnedString缓冲区内装载这个ini文件所有小节的列表
    'lpKeyName String，欲获取的项名或条目名。这个字串不区分大小写。如设为vbNullString，就在lpReturnedString缓冲区内装载指定小节所有项的列表
    'lpDefault String，指定的条目没有找到时返回的默认值。可设为空（""）
    'lpReturnedString String，指定一个字串缓冲区，长度至少为nSize,返回的字符串
    'nSize Long，指定装载到lpReturnedString缓冲区的最大字符数量,返回字符串的长度
    'lpFileName String，初始化文件的名字。如没有指定一个完整路径名，windows就在Windows目录中查找文件    
    lngRet = GetPrivateProfileString(strSection, strKey, "", strTmp, Len(strTmp), strINI)
    
    'strtmp现在已经是返回的字串了，所以要进行截尾处理
    strTmp = Trim(strTmp)
    strTmp2 = ""
    
    'ascii码为0对应的为空字符
    For I = 1 To Len(strTmp)
        If Asc(Mid(strTmp, I, 1)) <> 0 Then
            strTmp2 = strTmp2 + Mid(strTmp, I, 1)
        End If
    Next I
    
    GetIniKey = strTmp2
    Exit Function
errhandle:
    GetIniKey = ""End Function
Public Property Let INIFileName(ByVal New_IniPath As String)    ' Sets the new ini path
    
    strINI = New_IniPathEnd PropertyPublic Property Get INIFileName() As String    ' Returns the current ini path
    
    INIFileName = strINIEnd Property'***************************************清除KeyWord"键"(Sub)***********************************************Public Function DelIniKey(ByVal SectionName As String, ByVal KeyWord As String)    Dim RetVal As Integer
    
    RetVal = WritePrivateProfileString(SectionName, KeyWord, 0&, strINI)End Function'如果是清除section就少写一个Key多一个""。'**************************************清除 Section"段"(Sub)***********************************************Public Function DelIniSec(ByVal SectionName As String) '清除section    Dim RetVal As Integer
    
    RetVal = WritePrivateProfileString(SectionName, 0&, "", strINI)End Function

Answer 6

感谢大家！
特别是ljw0131() 和hui_hui_2007(天行健)

Answer 7

感谢  ljw0131已经困扰我一天,非常感谢.  如果能解释一下,就更感激了,我是菜鸟阿