vb从文件中读取数据 vb中如何读取文本文件

1、新建一个标准的VB EXE工程,只有一个Form,Form上有两个按钮:Command1和Command2.2、双击Command1添加如下代码 Private Sub Command1_Click() Dim .

先读入字符串.open fileName for input as #1 读入文本文件.然后用 val(a(i))转换成数字型变量.

Dim F As Integer F = FreeFile Open xxxxxxxxxxxx For Input As F 'xxxxxxxxxxxx为你文件路径 Do While Not EOF(F) Line Input #F, FileStr Text1.Text = My_Object.Text & FileStr & vbCrLf Loop Text1.Text = Left(Text1.Text, Len(My_Object.Text) - 2) '最后会多出一个回车符 Close F

1、调用Excel对象打开EXCEL文件后,读取文件内容*************************************** 在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并.

两种可能:一、下载的OFFICE不完整,是简化版二、安装时,安装不完整,应选择自定义安装,ACCESS项要在本地执行全部

声明变量 变量 as 类型dim...a..as..integer'创建变量.a..作为..整形

添加引用 Microsoft Excel ,可以自由操纵Excel 使用SQL语言,把Excel当作一个数据库来读取

Private Sub Command1_Click() Dim str(1 To 10) As String 定义字符数组,10为文件中的行数 Open App.Path & ＂\123.txt＂ For Input As #1 Do While Not EOF(1)'判断文件结束否 For i = 1 To 10 Line Input #1, str(i)'行读入 Print str(i) Next i Loop Close #1 End Sub 然后你可以自定义Data1,Data2为变量,然后 Data1=str(1) Data2=str(2) 定义类型则看你文本内容了

其实可以用split语句实现 如数据粘贴在c:\1.txt中 dim ins$,i%,data_ins(1000) as single ,temp_data() as single,new_data(1000,1000) 为了保证读取全,定义大数组.也可前.

dim conn As New ADODB.Connection dim ConnString As String dim sql as string . & _ ＂data source=＂ & App.Path & ＂\数据库名.mdb;Jet OLEDB:Database Password.