高手指教 用VB怎么编写Text1 读取/保存 CS.ini文件

dj888444 2010-06-16 07:07:38
高手指教 用VB怎么编写在程序中 Text1 读取 和 保存程序目录。
...全文
83 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
百事洞明 2010-06-16
  • 打赏
  • 举报
回复
Option Explicit

Public sIniFileDir As String 'ini文件的路径
Public sNeirong() As String

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

Public Function FlGetUserINI()
Dim lpOut As String * 128
Dim Ret As Long
Dim i As Integer
Dim sUser As String
Dim sKey As String

sIniFileDir = Trim(App.Path)
If Right(sIniFileDir, 1) <> "\" Then sIniFileDir = sIniFileDir & "\"
sIniFileDir = sIniFileDir & "HAS_SIM.INI"

For i = 0 To 1000
sKey = "KEY" & i + 1
Ret = GetPrivateProfileString("keshi", sKey, "", lpOut, 128, sIniFileDir)
sUser = FlLeftB(lpOut, Ret)
If sUser = "" Then
Exit Function
End If
ReDim Preserve sNeirong(i)
sNeirong(i) = sUser
Next

End Function

Public Function FlLeftB(p1 As String, p2 As Long) As String
FlLeftB = StrConv(LeftB(StrConv(p1, vbFromUnicode), p2), vbUnicode)
End Function
百事洞明 2010-06-16
  • 打赏
  • 举报
回复
建议下载配制文件INI操作方法

很简单的

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧