一个极其菜的问题，在线等待解决

Question

用文件操作就可以啊
File I/O 或 FSO都可以，也可以通过API实现INI

Answer 1

保存文件的例子。Public Function LetParameter()
  Dim fso, MyFile, IniFile
  If Right(App.Path, 1) = "\" Then
     IniFile = App.Path & "FTPCtrl.INI"
  Else
     IniFile = App.Path & "\FTPCtrl.INI"
  End If
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set MyFile = fso.CreateTextFile(IniFile, True)
  MyFile.writeline "/* DO NOT REMOVE UNDER LINES */"
  
  MyFile.writeline
  
  MyFile.writeline "[DB Parameters]"
  MyFile.writeline "DBServer = " & str_DBServer
  MyFile.writeline "DBName = " & str_DBName
  MyFile.writeline "DBUser = " & str_DBUser
  MyFile.writeline "DBPassword = " & str_DBPassword
  
  MyFile.writeline
  MyFile.writeline "[Times]"
  
  If useDB = False Then
     MyFile.writeline "StartTime = " & str_StartTime
     MyFile.writeline "StopTime = " & str_StopTime
  End If
  
  MyFile.writeline
  
  MyFile.writeline "[Interval]"
  MyFile.writeline "Timer = " & CStr(lng_Timer)
     
  MyFile.Close
  
  Set fso = Nothing
  
End Function

Answer 2

Cooly(烦） 大哥 请说详细点好吗  我是新手的  或者用几句代码就可以完成的太高深的我也不会啊

Answer 3

这是读取文件的例子，和上一个例子是相关的。Public Function GetParameter() As Integer
  Dim fso, MyFile, thefile, IniFile, retstring
  If Right(App.Path, 1) = "\" Then
     IniFile = App.Path & "FTPCtrl.INI"
  Else
     IniFile = App.Path & "\FTPCtrl.INI"
  End If  Set fso = CreateObject("Scripting.FileSystemObject")
  If fso.FileExists(IniFile) = False Then
     GetParameter = 1
     Exit Function
  End If
  
  Set thefile = fso.OpenTextFile(IniFile, 1, False)
  Do While thefile.AtEndOfStream <> True
    retstring = thefile.ReadLine
    
    If InStr(retstring, "DBServer = ") <> 0 Then
       str_DBServer = Right(retstring, Len(retstring) - Len("DBServer = "))
    End If
    
    If InStr(retstring, "DBName = ") <> 0 Then
       str_DBName = Right(retstring, Len(retstring) - Len("DBName = "))
    End If
    
    If InStr(retstring, "DBUser = ") <> 0 Then
       str_DBUser = Right(retstring, Len(retstring) - Len("DBUser = "))
    End If
    
    If InStr(retstring, "DBPassword = ") <> 0 Then
       str_DBPassword = Right(retstring, Len(retstring) - Len("DBPassword = "))
    End If
  
    If InStr(retstring, "StartTime = ") <> 0 Then
       str_StartTime = Right(retstring, Len(retstring) - Len("StartTime = "))
    End If
  
    If InStr(retstring, "StopTime = ") <> 0 Then
       str_StopTime = Right(retstring, Len(retstring) - Len("StopTime = "))
    End If
  
    If InStr(retstring, "Timer = ") <> 0 Then
       lng_Timer = Right(retstring, Len(retstring) - Len("Timer = "))
    End If
  
  Loop
        
  thefile.Close
End Function

Answer 4

如果不希望记录在文件中的内容被人轻易得到，可以使用加密算法进行处理。
如果不象太麻烦，可以用简单的ASCII码移位实现。