VB实际读写INI文件

在窗体上画两个按钮(Command1、Command2)，一个输入框(Text1),代码如下：
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

'注：写入与读取的[主项名]和[子项名]一定要相同！
Private Function STRYMINI(txtym1 As String, txtym2 As String, txtym3 As String, ONOFF As Boolean) As String
Dim ULR As String
ULR = App.Path & “\1.ini” 'INI文件路径
Dim txtBuff As String
If ONOFF = True Then '读取
'定义读取字符串的长度，“Space"取实际字符去掉字符后面多余的空格。txtBuff=Space"取实际字符去掉字符后面多余的空格。 txtBuff = Space"取实际字符去掉字符后面多余的空格。txtBuff=Space(1000)
'读取INI文件(主项名,子项名,空,读取子项名值,读取字符串长度,路径)
Call GetPrivateProfileString(txtym1, txtym2, “”, txtBuff, Len(txtBuff), ULR)
'显示实际字符串。取"txtBuff"左边的字符串(取得的字符串,字符串总长度(去掉字符串右边多余的空格字符(取得的字符串))得出字符串实际长度多一个，因此减1)
txtBuff = Left(txtBuff,Len(RTrim(txtBuff, Len(RTrim(txtBuff,Len(RTrim(txtBuff)) - 1)
'把读取到的字符串传递到"STRYMINI"函数
STRYMINI = txtBuff
Else
'把字符串写入INI文件(主项名，子项名，值，保存INI文件的路径)
Call WritePrivateProfileString(txtym1, txtym2, txtym3, ULR)
End If
End Function

'写入数据：
Private Sub Command1_Click()
Call STRYMINI(“主项名”, “子项名”, Text1.Text, False)
End Sub

'读取数据
Private Sub Command2_Click()
Dim Txt As String
Txt = STRYMINI(“主项名”, “子项名”, “”, True)
If Txt <> “” Then Text1.Text = Txt
End Sub

VB实际读写INI文件相关推荐

VC中读写ini文件
我们写的程序当中,总有一些配置信息需要保存下来,以便完成程序的功能,最简单的办法就是将这些信息写入INI文件中,程序初始化时再读入.具体应用如下: 一.将信息写入.INI文件中. 1.所用的WINAP ...
vbs脚本读写INI文件
vbs脚本读写INI文件转载于:https://www.cnblogs.com/bull_think/archive/2012/08/21/2649838.html
C#学习笔记——读写ini文件
1: using System; 2: using System.Collections.Generic; 3: using System.Linq; 4: using System.Text; 5: ...
C#关于读写INI文件
C#关于读写INI文件什么是ini文件就是一个配置文件,一般把数据库等配置信息放进去,然而,改变数据库的密码,数据库名称,ip等,不要改源码重新编译,只需要用记事本打开set.ini 文件,修改保存 ...
C# 读写Ini文件
ini文件在Win95以前比较盛行,之后由于出册表等技术的出现,ini技术主键退居二线,不过对于一些小项目,读写ini文件还是很适用的. Windows API提供了读写配置文件的操作,在C#程序中只 ...
在 WinCe 平台读写 ini 文件
在上篇文章开发 windows mobile 上的今日插件时,我发现 wince 平台上不支持例如 GetPrivateProfileString 等相关 API 函数.在网络上我并没有找到令我满意的 ...
十、封装python3读写ini文件类
自己编写封装的python3读写ini文件类. main.py # -*- coding: utf-8 -*- import os import configparserclass OperateIn ...
在.NET中读写INI文件 ——兼谈正则表达式的应用
INI文件是Windows平台上的一种较常用的软件配置文件格式,Windows应用程序常常使用它来保存一些配置信息.它一般是由数个包含key-value对的Section组成,每个key-value对 ...
转：c++builder读写INI文件
转:c++builder读写INI文件 //包含文件 #include <inifiles.hpp> //写文件 TIniFile *ini; ini=new TIniFile(Chang ...
(vc)分享一个读写ini文件的类，支持多种数据类型的读写，二进制数据都能保存和读取...
读写ini文件的类叫CIni,有ini.h和ini.cpp两个文件组成. ini.h文件: #pragma once#define SER_GET(bGet,value) SerGet(bGe ...

VB实际读写INI文件

VB实际读写INI文件相关推荐

最新文章

热门文章