高手指教 用VB怎么编写Text1 读取/保存 CS.ini文件

Question

高手指教 用VB怎么编写在程序中 Text1 读取 和 保存程序目录。

Answer 1

建议下载配制文件INI操作方法很简单的

Answer 2

Option ExplicitPublic sIniFileDir As String  'ini文件的路径
Public sNeirong() As StringDeclare 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 LongPublic Function FlGetUserINI()
    Dim lpOut   As String * 128
    Dim Ret     As Long
    Dim i As Integer
    Dim sUser As String
    Dim sKey As String
    
    sIniFileDir = Trim(App.Path)
    If Right(sIniFileDir, 1) <> "\" Then sIniFileDir = sIniFileDir & "\"
    sIniFileDir = sIniFileDir & "HAS_SIM.INI"
    
    For i = 0 To 1000
        sKey = "KEY" & i + 1
        Ret = GetPrivateProfileString("keshi", sKey, "", lpOut, 128, sIniFileDir)
        sUser = FlLeftB(lpOut, Ret)
        If sUser = "" Then
            Exit Function
        End If
        ReDim Preserve sNeirong(i)
        sNeirong(i) = sUser
    NextEnd FunctionPublic Function FlLeftB(p1 As String, p2 As Long) As String
    FlLeftB = StrConv(LeftB(StrConv(p1, vbFromUnicode), p2), vbUnicode)
End Function