文件写入问题??

goldstar3000 2003-11-22 10:33:15
怎样得到combobox,的清单并将这些安数据写入,test.txt文件,带有转行,
然后程序启动时,将这些数据写入combo1box里
...全文
35 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2003-11-22
  • 打赏
  • 举报
回复
Private Sub Form_Load()
Dim x As String
Open App.Path & "\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, x
Combo1.AddItem Trim(x)
Loop
Close #1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\test.txt" For Output As #1
For i = 0 To Combo1.ListCount - 1
Print #1, , Combo1.List(i)
Next
Close #1
End Sub
lxqlogo0 2003-11-22
  • 打赏
  • 举报
回复
'放两个combox,一个command
Private Sub form_load()
Combo1.AddItem "2001"
Combo1.AddItem "2002"
Combo1.AddItem "2003"
Combo1.AddItem "2004"
Combo1.Text = "2003"
Open "c:\test.txt" For Output As #1

For i = 0 To Combo1.ListCount - 1
Print #1, Combo1.List(i)
Next i
Close #1

If Dir("c:\test.txt") <> "" Then
Open "c:\test.txt" For Input As #1
While Not EOF(1)
Line Input #1, txt
Combo2.AddItem txt
Wend
Close #1
Combo2.Text = Combo2.List(0)
End If
End Sub

7,759

社区成员

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

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