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

  • 相关阅读:
    一道C#基础题,看你能多长时间做出来?
    终于能在这里安家了
    你知道返回多少吗?(使用Math类)
    关于implicit和explicit关键词的用法
    关于基类与派生类的学习
    js控制输入框
    Oracle 动态SQL返回单条结果和结果集 转帖
    定时器:.NET Framework类库中的Timer类比较(转帖)
    UVA10020 Minimal coverage
    UVA1388 Graveyard
  • 原文地址:https://www.cnblogs.com/sysdzw/p/1939401.html
Copyright © 2011-2022 走看看