TXT文本读取调用

sdn 2009-12-09 11:21:18
我从TXT文本读取的字符串怎样在程序里当命令来用

Private Sub Form_Load()


Dim s As Object
Open App.Path & "\home.txt" For Input As #1
Line Input #1, i

Close #1


End Sub

我的i变量里是 Check1=1
我想在TXT保存我的check的状态 以便加载的时候调用
...全文
108 15 打赏 收藏 转发到动态 举报
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
舉杯邀明月 2009-12-10
  • 打赏
  • 举报
回复
[Quote=引用 11 楼 assdnsdn 的回复:]
在麻烦一下 请问如果文本里面是Check数组能实现么? 拜托了
[/Quote]
当然能完成!
sdn 2009-12-10
  • 打赏
  • 举报
回复
[Quote=引用 14 楼 chen8013 的回复:]
引用 11 楼 assdnsdn 的回复:
在麻烦一下 请问如果文本里面是Check数组能实现么? 拜托了

当然能完成!

[/Quote]

麻烦贴下程序 我一变成数组 就提示未找到控件
舉杯邀明月 2009-12-09
  • 打赏
  • 举报
回复
' 以下代码在 VB 6.0 中 IDE下、编译本机代码 exe 测试通过
' 新建标准 EXE 工程
' 添加 Check1, Check2, Check3
' 添加 Command1, Text1
' Set.txt 中的内容:
'Check1=1
'Check2=0
'Check3=2
'Command1=按钮文本
'Text1=运行时改变控件属性!
Option Explicit

Private Sub Command1_Click()

'下面文件路径按你实际情况写
'请保证格式正确
Open "X:\Temp\Set.txt" For Input As #1
Dim strText$, arrParam$()
While (Not EOF(1))
Line Input #1, strText
arrParam = Split(strText, "=")
If (InStr(1, arrParam(0), "Command") = 1) Then
CallByName Controls(arrParam(0)), "Caption", VbLet, arrParam(1)
Else
If (InStr(1, arrParam(0), "Text") = 1) Then
CallByName Controls(arrParam(0)), "Text", VbLet, arrParam(1)
Else
CallByName Controls(arrParam(0)), "Value", VbLet, arrParam(1)
End If
End If
Wend

End Sub

  • 打赏
  • 举报
回复
Dim ctl As Object
Dim str() As String

str = Split("Check1=1", "=")

For Each ctl In Me.Controls
If TypeOf ctl Is CheckBox Then
If ctl.Name = str(0) Then
ctl = str(1)
End If
End If
Next
sdn 2009-12-09
  • 打赏
  • 举报
回复
就是想执行变量里的语句
sdn 2009-12-09
  • 打赏
  • 举报
回复
一楼的答案是试过了 提示我“错误的参数号或无效的属性赋值”
sdn 2009-12-09
  • 打赏
  • 举报
回复
我有很多CHECK选项 每人选项的内容都不同 所以想保存在TXT文本里 这样下次运行的时候就不用从新选择了
man796 2009-12-09
  • 打赏
  • 举报
回复
这个有点不明白,我水平差
  • 打赏
  • 举报
回复
修改下
CallByName Check1, "", VbLet, 1
舉杯邀明月 2009-12-09
  • 打赏
  • 举报
回复
要是这样,你直接 保存/设置 check 的状态属性不就行了吗。
  • 打赏
  • 举报
回复
CallByName( Check1, vbset, 1)
goosen 2009-12-09
  • 打赏
  • 举报
回复
ini.
  • 打赏
  • 举报
回复
文件里是如何表示的?
sdn 2009-12-09
  • 打赏
  • 举报
回复
在麻烦一下 请问如果文本里面是Check数组能实现么? 拜托了
sdn 2009-12-09
  • 打赏
  • 举报
回复
十分感谢~~~

2,461

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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