- 浏览: 550822 次
- 性别:
- 来自: 石家庄
文章分类
最新评论
-
toyota2006:
thank you!
适配器(Adapter)模式 -
910014107:
收藏一下
JIRA安装和破解 -
wangchaobashen:
注册完是一年期的License,请问这个期限该如何修改呢?
JIRA安装和破解 -
ihqn19:
总而言之,就是不知道你想表达什么就对了。
JS 面向对象的简单应用实例 -
jxls162408:
第四步更新tomcat libraris ,找不到那个包呀。怎 ...
JIRA安装和破解
Option Explicit '定义API函数 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 Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
'函数说明
'-------------------------------------------------------------------------
' ReadKeyVal FileName, Section, Key
' ~~~~~~~~读取FileName文件中的段Section下的关键字Key的值KeyValue
' WriteKeyVal FileName, Section, Key, KeyValue
' ~~~~~~~~写入值KeyValue到FileName文件中的段Section下的关键字Key
'-------------------------------------------------------------------------
' DeleteSection FileName, Section
' ~~~~~~~~删除FileName文件中的段Section
' DeleteKey FileName, Section, Key
' ~~~~~~~~删除FileName文件中的段Section下的关键字Key
' DeleteKeyValue FileName, Section, Key
' ~~~~~~~~删除FileName文件中的段Section下的关键字Key的KeyValue
'-------------------------------------------------------------------------
' TotalSections FileName
' ~~~~~~~~统计FileName文件中的段Section的总数
' TotalKeys FileName
' ~~~~~~~~统计FileName文件中的关键字Key的总数
' NumKeys FileName, Section
' ~~~~~~~~统计FileName文件中的段Section下的关键字Key的总数
'-------------------------------------------------------------------------
' RenameSection FileName, Section, NewSectionName
' ~~~~~~~~使用值NewSectionName替换FileName文件中的段Section
' RenameKey FileName, Section, KeyName, NewKeyName
' ~~~~~~~~使用值NewKeyName替换FileName文件中的段Section下的关键字Key
'-------------------------------------------------------------------------
' GetKey FileName, Section, KeyIndexNum,
' ~~~~~~~~获得FileName文件中的段Section下的Key索引为KeyIndexNum的Key
' GetKey2 FileName, SectionIndexNum,KeyIndexNum
' ~~~~~~~~获得FileName文件中的段索引为Section下的Key索引为KeyIndexNum的Key
' GetSection FileName, SectionIndexNum
' ~~~~~~~~获得FileName文件中的段索引为Section下的Section
'-------------------------------------------------------------------------
' GetSectionIndex FileName, Section
' ~~~~~~~~获得FileName文件中的段Section的索引
' GetKeyIndex FileName, Section, Key
' ~~~~~~~~获得FileName文件中的段Section下的关键字Key的索引
' GetKeyIndex2 FileName, SectionIndexNum,Key
' ~~~~~~~~获得FileName文件中的段索引为Section下的关键字Key的索引
'-------------------------------------------------------------------------
' KeyExist FileName, Section, Key
' ~~~~~~~~检测是FileName文件中的段Section下的Key是否存在
' KeyExist2 FileName, SectionIndexNum,Key
' ~~~~~~~~检测是FileName文件中的段索引为Section下的Key是否存在
' SectionExist FileName, Section
' ~~~~~~~~检测是FileName文件中的段Section是否存在
'-------------------------------------------------------------------------
' IsKey TextLine
' ~~~~~~~~检测是TextLine是否是Key行
' IsSection TextLine
' ~~~~~~~~检测是TextLine是否是Section行
'-------------------------------------------------------------------------
'ini文件示例
'-------------------------------------------------------------------------
'[Section 1]
'Key 1=Key1Value
'[Section 2]
'Key 1=Key1Value
'Key 2=Key2Value
'Key 3=Key3Value
'Key 4=Key4Value
'Key 5=Key5Value
'[Section 3]
'Key 1=Key1Value
'Key 2=Key2Value
'Key 3=Key3Value
'-------------------------------------------------------------------------
'正文
Private Function ReadKeyVal(ByVal FileName As String, ByVal Section As String, ByVal Key As String) As String Dim RetVal As String, Worked As Integer ReadKeyVal = "" If Dir(FileName) = "" Then MsgBox FileName & " not found.", vbCritical, "File Not Found": Exit Function RetVal = String$(255, Chr(0)) Worked = GetPrivateProfileString(Section, Key, "", RetVal, Len(RetVal), FileName) ReadKeyVal = IIf(Worked = 0, "", Left(RetVal, InStr(RetVal, Chr(0)) - 1)) End Function '--------------------------- Private Function WriteKeyVal(ByVal FileName As String, ByVal Section As String, ByVal Key As String, ByVal KeyValue As String) As Long WriteKeyVal = 0 If Dir(FileName) = "" Then MsgBox FileName & " not found.", vbCritical, "File Not Found": Exit Function WriteKeyVal = WritePrivateProfileString(Section, Key, KeyValue, FileName) End Function '--------------------------- Private Function DeleteSection(ByVal FileName As String, ByVal Section As String) As Long DeleteSection = 0 If Dir(FileName) = "" Then MsgBox FileName & " not found.", vbCritical, "File Not Found": Exit Function If Not SectionExists(FileName, Section) Then MsgBox "Section, " & Section & ", Not Found. ~(DeleteSection)" & vbCrLf & "Verify spelling and capitilization is correct. Case-sensative.", vbInformation, "Section Not Found.": Exit Function DeleteSection = WritePrivateProfileString(Section, vbNullString, vbNullString, FileName) End Function '--------------------------- Private Function DeleteKey(ByVal FileName As String, ByVal Section As String, ByVal Key As String) As Long DeleteKey = 0 If Dir(FileName) = "" Then MsgBox FileName & " not found.", vbCritical, "File Not Found": Exit Function If Not SectionExists(FileName, Section) Then MsgBox "Section, " & Section & ", Not Found. ~(DeleteKey)" & vbCrLf & "Verify spelling and capitilization is correct. Case-sensative.", vbInformation, "Section Not Found.": Exit Function If Not KeyExists(FileName, Section, Key) Then MsgBox "Key, " & Key & ", Not Found. ~(DeleteKey)" & vbCrLf & "Verify spelling and capitilization is correct. Case-sensative.", vbInformation, "Key Not Found.": Exit Function DeleteKey = WritePrivateProfileString(Section, Key, vbNullString, FileName) End Function '--------------------------- Private Function DeleteKeyValue(ByVal FileName As String, ByVal Section As String, ByVal Key As String) As Integer DeleteKeyValue = 0 If Dir(FileName) = "" Then MsgBox FileName & " not found.", vbCritical, "File Not Found": Exit Function If Not SectionExists(FileName, Section) Then MsgBox "Section, " & Section & ", Not Found. ~(DeleteKeyValue)" & vbCrLf & "Verify spelling and capitilization is correct. Case-sensative.", vbInformation, "Section Not Found.": Exit Function If Not KeyExists(FileName, Section, Key) Then MsgBox "Key, " & Key & ", Not Found. ~(DeleteKeyValue)" & vbCrLf & "Verify spelling and capitilization is correct. Case-sensative.", vbInformation, "Key Not Found.": Exit Function DeleteKeyValue = WritePrivateProfileString(Section, Key, "", FileName) End Function
来源:PC诊所
地址:http://www.pczs120.com/article/art349.htm
发表评论
-
遍历DataGridView
2010-02-21 10:10 1644Public Function dvtodt(ByVa ... -
开发人员一定要加入收藏夹的网站
2009-12-08 11:22 976转自:http://www.cnblogs.com ... -
vb检测某个进程是否运行
2009-04-28 16:30 3740vb检测某个进程是否运行 在模块中加入如下代码: Co ... -
有关几个表复制,表创建的SQL
2009-02-03 16:10 1822一,两种SQL中的表复制语句 insert into des ... -
VB输出log
2009-02-02 13:18 1534Open "c:\log.txt" For ... -
VB递归遍历目录文件2
2008-12-11 18:14 2555Option Explicit Private C ... -
vb递归遍历目录,文件
2008-12-11 18:12 2179Dim ls, ld, l ... -
Log4Net应用指南
2008-10-21 18:03 4075Log4Net应用指南 我们 ... -
VB6.0中Dir()函数的使用方法
2008-08-15 16:43 2327VB中提供的成员函数dir返回一个满足指定类型或指定文件属性的 ... -
UNIX常用命令 (转载收藏)
2007-08-28 17:50 2020引用UNIX常用命令 第 ... -
pairprogramming (结对编程)
2006-10-23 09:31 1681http://www.blogjava.net/moxie/ ... -
Web程序中实现快捷键有两种方法
2006-10-19 10:07 4094最近yahoo的邮箱推出了新的测试版,增加了不少很酷的功能,其 ... -
利用userData实现客户端保存表单数据
2006-10-08 13:37 4208bencalie已经把userData的基本应用整理很好了,偶 ...
相关推荐
读取INI文件的代码如下: ```vb Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _ (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal ...
### INI 文件操作详解 在计算机编程领域,配置文件用于存储程序运行时的设置和参数,其中 `.ini`(初始化)文件是一种常见的格式。本文将深入解析如何在 VB.NET 中进行 INI 文件的读写操作。 #### 1. INI 文件简介...
### 使用VB进行INI文件操作详解 #### 一、概述 在软件开发中,尤其是在使用Visual Basic(简称VB)进行程序设计时,对于配置文件的管理是必不可少的一部分。配置文件可以帮助程序存储并读取用户设置或其他非数据库...
1. **文件读取**:编辑器首先需要读取INI文件的内容,这可能涉及到使用Basic的文件I/O函数,如`Open`、`Input#`、`Line Input#`等,来逐行读取文件并存储到内存中的数据结构。 2. **解析内容**:读取的数据需要被...
通过上述的介绍和示例代码,我们可以看到使用VB来操作INI文件不仅简单高效,而且能够大大提升Windows应用程序的灵活性和可维护性。掌握这些技巧,无疑能够帮助开发者更好地管理和配置程序的各种设置信息,从而提高...
### vb+sql配置文件知识点详解 #### 一、VB与SQL简介 在开始详细介绍如何创建和使用vb+sql配置文件之前,我们先简要介绍一下VB(Visual Basic)和SQL的基本概念。 - **Visual Basic (VB)**:Visual Basic是一种...
**VB版INI文件编辑器源码详解** INI文件是一种简单的文本配置文件格式,常用于存储应用程序的设置和配置信息。VB(Visual Basic)是微软开发的一种面向对象的编程语言,适合快速开发桌面应用。本篇将详细介绍使用VB...
《VB编程实现定时关机软件详解》 VB(Visual Basic)是微软公司开发的一种面向对象的编程语言,因其简单易学、功能强大的特点,在初学者和专业开发者中广受欢迎。本篇文章将深入探讨如何利用VB编写一个定时关机软件...
VB提供了`GetPrivateProfileString`等函数来读取和写入INI文件。在这个案例中,虽然没有具体实现,但是可以设想应用可能通过INI文件保存抽奖规则、参与者名单等信息。 8. **事件驱动编程** VB采用事件驱动编程模型...
#### 二、使用 VB 进行 INI 文件操作 - **VB 简介**:Visual Basic 是一种广泛使用的编程语言,特别是对于 Windows 平台的应用开发非常友好。 - **访问 INI 文件**:本案例通过调用 Windows API 函数 `...
在Visual Basic 6.0(VB6)中,读取和写入INI文件是一个常见的任务,这些文件通常用于存储应用程序的配置信息。`cIniFile.zip`中的`cIniFile.cls`文件提供了一个自定义的类模块,允许开发者更方便地操作INI文件,而...
在VB中通过ADO(ActiveX Data Objects)连接并读取Excel文件是一种常见的需求,下面的代码演示了如何实现: ```vb ' 使用ADO连接Excel Dim Cn As New ADODB.Connection Dim Rs As New ADODB.Recordset Private Sub...
`ini()`函数用于从外部文件或配置读取必要的连接字符串信息,确保了代码的安全性和灵活性。 ##### 2. 调用存储过程 `sqlhc`函数展示了如何调用名为`PostbackInvoiceApplyMaster`的存储过程。首先,将`...
- 可以使用XML或ini文件存储用户设置,如壁纸目录和更换频率。VB.NET的`System.IO`命名空间提供了读写这些配置文件的便利方法。 9. **资源管理**: - 图像资源的管理很重要,尤其是当壁纸数量较大时。可以将壁纸...
8. **文件操作**:可能涉及到保存和加载配置文件,如XML或ini文件,以存储用户设置和系统信息。 9. **程序调试与测试**:掌握调试技巧,如使用VB的Debug窗口、断点和步进执行,确保代码的正确性和效率。 通过学习...
`GetProfileString**:这些函数用于获取文件属性、版本信息、路径、驱动器列表等信息,以及读取INI文件配置。 此外,还有一些特定于低级文件操作的API,如 `lread`、`lwrite`、`lclose`、`lcreat`、`llseek`、`Lock...
INI文件详解: INI文件是一种文本文件,主要用于存储应用程序的设置和配置信息。它的结构简单,由键(Key)和值(Value)组成,每一行代表一个键值对,键名和键值之间用等号(=)分隔。这种文件格式易于读写,便于...
1. **源代码文件**:通常以.vbp(项目文件)、.frm(窗体文件)、.bas(标准模块文件)和.cls(类模块文件)为扩展名,这些是VB项目的主要构成部分。 2. **数据库文件**:可能使用Access或其他类型的数据库,如.mdb...