VB 读取INI文件

R = GetPrivateProfileString("IMP", "IMP_PATH", "", sImpPath, Len(sImpPath), App.Path & "\Param.ini")

    g_imp_path = Trim(Left(sImpPath, R))


读取Ini 文件时候,如果参数中有中文,读取的值后面有很多空格

如:

param.ini:

[IMP]
IMP_PATH=D:\ProjectManager\20160912_海关单一窗口\program\ImpAndExpForCust\in

读取到的值:

'imp
    R = GetPrivateProfileString("IMP", "IMP_PATH", "", sImpPath, Len(sImpPath), App.Path & "\Param.ini")
    g_imp_path = Trim(Left(sImpPath, R))


g_imp_path =D:\ProjectManager\20160912_海关单一窗口\program\ImpAndExpForCust\in      

后面的空格,用trim都无法去掉





  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
在64位系统上,使用VB读取INI文件的方法与32位系统上基本相同。VB提供了一个`GetPrivateProfileString`函数,可以实现读取INI文件中的配置信息。 首先,在VB代码中引入`kernel32.dll`库,并声明`GetPrivateProfileString`函数: ```vb Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _ (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, _ ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long ``` 然后,可以按照以下步骤读取INI文件中的配置信息: 1. 定义变量来存储INI文件路径和配置项的名称: ```vb Dim iniFilePath As String = "C:\path\to\config.ini" Dim sectionName As String = "Section1" Dim keyName As String = "Key1" ``` 2. 声明变量来存储读取到的配置信息: ```vb Dim valueBuffer As String = Space(255) '用于存储配置值的缓冲区 Dim valueLength As Long '配置值的长度 ``` 3. 调用`GetPrivateProfileString`函数来读取配置项的值: ```vb valueLength = GetPrivateProfileString(sectionName, keyName, "", valueBuffer, 255, iniFilePath) ``` 4. 检查读取结果,如果返回值大于0,则表示成功读取了配置项的值: ```vb If valueLength > 0 Then Dim value As String = Left(valueBuffer, valueLength) '提取配置值 MsgBox("配置项的值为:" & value) Else MsgBox("无法读取配置项的值。") End If ``` 通过以上步骤,就可以在64位系统上使用VB读取INI文件的配置信息了。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值