zoukankan      html  css  js  c++  java
  • modIni.bas

    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

  • 相关阅读:
    【年度回顾】2020,云开发的20个重大更新
    SQL 排序检索数据
    【JVM进阶之路】三:探究虚拟机对象
    【JVM进阶之路】二:Java内存区域
    【JVM进阶之路】一:Java虚拟机概览
    这些不可不知的JVM知识,我都用思维导图整理好了
    计算机网络的七层结构、五层结构和四层结构
    synchronized详解
    Linux内核中I2C总线及设备长啥样?
    C语言中这些预定义宏的不可不会
  • 原文地址:https://www.cnblogs.com/sysdzw/p/1939401.html
Copyright © 2011-2022 走看看