VB配置文件处理类
来源:互联网 发布:淘宝家居装修论坛网 编辑:程序博客网 时间:2024/05/24 06:43
'cFileCFG.cls
Dim StrArr() As String
Public Function Value_Read(Key As String) As String
Dim strTemp As String
Dim lngSet As Long
For I = LBound(StrArr) To UBound(StrArr)
lngSet = InStr(StrArr(I), " ")
If lngSet > 0 Then
strTemp = Left$(StrArr(I), lngSet - 1)
If LCase$(strTemp) = Key Then
Value_Read = Mid$(StrArr(I), lngSet + 1)
End If
End If
Next
End Function
Public Sub Value_Write(Value As String, Key As String)
Dim strTemp As String
Dim lngSet As Long
For I = LBound(StrArr) To UBound(StrArr)
lngSet = InStr(StrArr(I), " ")
If lngSet > 0 Then
strTemp = Left$(StrArr(I), lngSet - 1)
If LCase$(strTemp) = Key Then
StrArr(I) = strTemp & " " & Value
End If
End If
Next
End Sub
Public Function LoadFile(FileName As String) As String()
Dim FileID As Long
Dim ID As Long
FileID = FreeFile
Open FileName For Input As #FileID
Do While Not EOF(FileID)
LineStr = ""
ReDim Preserve StrArr(ID)
Line Input #FileID, StrArr(ID)
ID = ID + 1
Loop
Close #FileID
LoadFile = StrArr
End Function
Public Sub SaveFile(FileName As String)
Dim FileID As Long
Dim I As Long
FileID = FreeFile
Open FileName For Output As #FileID
For I = LBound(StrArr) To UBound(StrArr)
Print #FileID, StrArr(I)
Next
Close #FileID
End Sub
调用实例
Private Sub Command1_Click()
Dim str() As String
Dim cfg As New cFileCFG
str = cfg.LoadFile("F:/00_GAME_00/Counter-Strike/cstrike/config.cfg")
MsgBox cfg.Value_Read("name")
cfg.Value_Write "youname", "name"
cfg.SaveFile "F:/00_GAME_00/Counter-Strike/cstrike/config.cfg"
End Sub
- VB配置文件处理类
- VB配置文件处理类
- vb.net的 配置文件
- VB.Net—配置文件
- VB ini配置文件
- vb.net—配置文件
- vb.net读取配置文件
- vb.net 读取配置文件
- VB ini配置文件通式
- Cls_Ini.cls:VB写的操作ini配置文件的类
- VB.Net CSV文件处理类
- [VB.NET]VB 图像处理
- VB.NET读写INI配置文件
- VB.NET读写INI配置文件
- vb.net(vs2010)读取配置文件
- vb.net配置文件的使用
- vb.net中的配置文件总结
- VB容错处理策略
- JSON知识复习
- T001_UT001_0015
- 黑马学员《String》
- 修改oracle 10g rac监听端口号为1523的步骤
- Git常用命令速查
- VB配置文件处理类
- LeetCode - Wildcard Matching
- android 很好开源代码
- POJ2060 Taxi Cab Scheme【二分图最小路径覆盖】
- 面试经验分享之数据结构、算法题
- wenda
- 清明时节雨纷纷
- echarts函数初始化简单介绍
- 机器狗组装费用 南邮NOJ 1076 优先权队列