vb里面怎么把listbox控件里面的文件导出来存到电脑上其它地方,存成TXT文件?

问入题目
我编了一个添加名片的界面
添加后的信息都会存到一个listbox控件里面,也就是list1
假如我添加菜单里面有个保存这项

如何在点击保存后,导出list1的信息存为txt文件到电脑里面??

希望有高手帮忙写下代码

谢谢~!

list中内容的添加
Private Sub Command1_Click()
List2.Clear
Dim i As Integer
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i), i
Next i
End Sub

'combo与list差不多
Private Sub Combo1_DropDown() 'combo下拉事件
Combo2.Clear
Dim i As Integer
For i = 0 To Combo1.ListCount - 1
Combo2.AddItem Combo1.List(i), i
Next i
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2013-07-10
dim a as interger
a=List1.ListCount

VB中将file1listbox中的结果批量导出,并且保存为txt文件
Private Sub Command1_Click()Open App.Path & "\\1.txt" For Output As #1 For i = 0 To File1.ListCount - 1 Print #1, Left(File1.List(i), Len(File1.List(i)) - 4)Next i Close End Sub Private Sub Dir1_Change()File1.Path = Dir1.Path End Sub Private Sub Drive1_C...

vb里面怎么把listbox控件里面的文件导出来存到电脑
Private Sub Command1_Click()List2.Clear Dim i As Integer For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i), i Next i End Sub 'combo与list差不多 Private Sub Combo1_DropDown() 'combo下拉事件 Combo2.Cl...

vb6中,listbox中的内容怎么存储到当前目录的TXT中,对应着一行一行的...
保存的代码:On Error Resume Next Dim i As Integer Open App.Path + "\\1.txt" For Output As #1 '可以把文件名更改成自己需要的文件名 For i = 0 To List1.ListCount - 1 Print #3, List1.List(i)Next i Close #1 顺便给个读取的代码:Dim MyString As String Open App.Path ...

VB.NET 单击按钮后,弹出保存文件对话框,把ListBox的内容保存到.txt中...
SaveFileDialog1.Filter = "文本文档|*.txt"If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then FileOpen(1, SaveFileDialog1.FileName, IO.FileMode.Open, OpenAccess.Write)For i As Integer = 0 To ListBox1.Items.Count - 1 Print(1, ListBox1.Items(i).ToString)Next File...

VB的filebox问题
首先,我们需要创建一个listbox控件,用于显示文件列表。在设计界面时,可以将listbox放在窗体中,并设置其显示方式为垂直或水平,以便用户查看文件信息。接着,通过代码将文件路径添加到listbox中,实现文件列表的初始化。为了让用户能够方便地操作文件列表,我们可以添加鼠标拖动功能。当用户点击并拖动列表项...

vb中如何实现文件拖动复制
'''窗体上需要DriveListBox,DirListBox和FileListBox各2个,名称保留默认名称 Option Explicit Dim fcpy As Boolean '标记是否是从file1托过来的文件 Private Sub Dir1_Change()File1.Path = Dir1.Path End Sub Private Sub Dir2_Change()File2.Path = Dir2.Path End Sub Private Sub Drive1_...

vb中如何将下拉式组合框与文本框关联到一起
那就要用到drivelistbox,dirlistbox,filelistbox 三个控件了,就是选择驱动器,再选择文件夹,还可以选择文件 看看是否符合你的要求 Private Sub Dir1_Change() '选择文件夹变化则filelistbox自动列出该文件夹里的文件 File1.Path = Dir1.Path End Sub Private Sub Dir1_MouseDown(Button As Integer...

vb中如何将ListBox里面的值取出然后去数据库里查询出来
+ "\\你数据库文件名")Dim MyCommand as oleDBCommand MyCommand = "Select * From 表名 Where 字段名 = '" & list1.list(i) & "'",MyConnection)MyCommand.ExectueNonQuery 帮你写了个小的读取list1中一项并在Access中查询的片段。你看看管用不。前面的空间命名System.Data.OLEDB ...

关于vb的listbox
'把listbox里面的数据一个个读出来放在一个文件里 Private Sub Command1_Click()Open "F:\\lhc\\vb\\test.txt" For Output As #1 For a = 0 To List1.ListCount - 1 Print #1, List1.List(a)Next Close #1 MsgBox "完成"End Sub

怎么提取指定文件夹下的文件名和属性
VB可以使用FileListBox 控件来获取指定文件夹内的所有文件名。FileListBox 控件,在运行时,在 Path 属性指定的目录中,FileListBox 控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如,可以在应用程序中创建对话框,通过它选择一个文件或者一组文件。

相似回答
大家正在搜