modIni.bas
来源:互联网 发布:淘宝数据库架构 编辑:程序博客网 时间:2024/06/09 23:16
Attribute VB_Name = "modIni"
Option Explicit
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 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
Public iniFileName As String
Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, Optional ByVal DefString As String) As String
Dim ResultString As String * 144, Temp%
Dim s$, i%
Temp% = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, iniFileName)
If Temp% > 0 Then
For i = 1 To 144
If Asc(Mid$(ResultString, i, 1)) <> 0 Then
s = s & Mid$(ResultString, i, 1)
End If
Next
Else
Temp% = WritePrivateProfileString(SectionName, KeyWord, DefString, iniFileName)
s = DefString
End If
GetIniS = s
End Function
Public Function SetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String) As Boolean
SetIniS = WritePrivateProfileString(SectionName, KeyWord, ValStr, iniFileName)
End Function
Public Function DelIniSec(ByVal SectionName As String) As Boolean
DelIniSec = WritePrivateProfileString(SectionName, 0&, "", iniFileName)
End Function
'delKeyWord
Public Function DelIniKey(ByVal SectionName As String, ByVal KeyWord As String) As Boolean
DelIniKey = WritePrivateProfileString(SectionName, KeyWord, 0&, iniFileName)
End Function
- modIni.bas
- FuctionMod.bas
- Module.bas
- mHook.bas
- modPub.bas
- RakuCommn.bas
- RakuUtility.bas
- bas的概略说明
- BAS和SR设备
- This proposal is bas
- 位运算模块mBit.bas
- VB操作注册表BAS类
- VB模拟指针模块mPoint.bas
- vb反编译器.rar > modAsm.bas
- 解决报表故障 afc/rptroot.bas
- VB standard-module bas文件 调用
- VB .bas文件生成dll并且调用
- BAS系统 升级至VC2008 编译问题
- 2009-04-20 晴
- Discuz Cookies解密算法的C#版本
- SCJP第一课课后笔记
- asp.net刷新页面的六种方法
- 大隐于市 真正的武林高手在民间?[图]
- modIni.bas
- VS2005中ajax安装指南
- 福建大学排名(包括所有大学仅供参考)
- C#创建Word文件,并且写入数据的程序
- 嵌入式程序员应知道的几个基本问题-转
- Linux 下串口编程入门
- 犹豫不决的人依赖性强
- More Effective C++ 读书摘要(五、技巧2)Item28 - 29
- Winform MDI编程-获得MDI窗体中的MDI控件的方法