vb调取text数据软件 vb text 数据类型

VB中如何读取ftp服务器上面的text文本文件？

使用Inet控件进行FTP操作Inet1.Protocol = icFTPInet1.RemoteHost = p_ServerName ' 服务器IP或者域名Inet1.RemotePort = CInt(p_ServerPort) 'FTP端口Inet1.UserName = uName 'FTP帐号Inet1.Password = uPWS 'FTP密码Inet1.Execute ＂＂, ＂ls＂ri = Inet1.StillExecutingDo While riri = Inet1.StillExecutingDoEventsLoopvd = Inet1.GetChunk(1024, icString)判断服务的FTP是否连接成功下面下载服务器上的text数据，假设文件名为1.txtp_pathDir 为当前软件运行目录，后面一个字符自带 \，如e:\1111\tepFile 临时文件工作方式是先下载这个文件下为，然后判断本地是否存在，如果存在，则打开文件读取内容，如果不存在，则说明服务器上不存在这个文件，但要注意，如果文件过大的话，可能需要等待的时候比较长。

tepFile = p_pathDir & ＂1.txt_＂'Inet1.Execute hDir, ＂get 1.txt ＂ & tepFileInet1.Execute ＂＂, ＂GET 1.txt ＂ & tepFileri = Inet1.StillExecutingDo While riri = Inet1.StillExecutingDoEventsLoopIf Dir(tepFile) = ＂＂ ThenInet1.CancelMsgBox ＂文件不存在＂ & InetState, vbOKOnly + vbExclamation， ＂系统提示＂ElseInet1.Cancel'这里已经存在，与本地操作文件一样，请打开获取内容，不再详细写出'End If

VB中TEXT如何往当前目录下的TXT文本指定的位置写入数据？

1、打开数据库文件，把要输出的数据表记录生成一个 RecordSet 数据记录集，然后把要输出的字段内容用循环的方式输出到一个文本文件就好了。

当然要看你的数据库是什么类型的了， Access,SQL 程序是有些区别的.2、给你一个生成文本文件的调用过程，参考一下Private Sub SaveTodayTestData(tData As String)Dim FileNum As LongDim fileName As StringOn Error GoTo SaveErr'***数据文件路径If Len(Dir$(App.Path + ＂\Data＂, vbDirectory)) = 0 Then MkDir App.Path + ＂\Data＂ '文件是否存在fileName = App.Path + ＂\Data\＂ + Format$(Date, ＂YYYY＂) + Format$(Date, ＂MM＂) + Format$(Date, ＂DD＂) + ＂.txt＂'按日期生成一个文本文件的名称，如：20131017.TxtFileNum = FreeFile()Open fileName For Append As FileNumPrint #FileNum, tDataClose FileNumExit SubSaveErr:MsgBox ＂保存测试错误！＂ + Chr$(13) + Error$, 48， ＂重要提示＂Exit SubEnd Sub

vb如何把计算结果数据记录到text框内

'1.首先＂工程＂-＂引用＂---＂Microsoft Script Runtime＂'2.将text2 的multiline属性设置为true ScrollBars 属性设置为2-VerticalDim fso As New FileSystemObjectPrivate Sub Form_Load()Text1.Text = ＂＂Text2.Text = ＂＂If fso.FileExists(＂c:\abc.txt＂) Then '判断文件是否存在Dim sum_row As Integersum_row = 1Open ＂c:\abc.txt＂ For Input As #7Line Input #7, first_row '按行读取Text1.Text = first_rowDo While Not EOF(7)Line Input #7, next_rowsum_row = sum_row + 1If sum_row >50 ThenExit DoElseText2.Text = Text2.Text & next_row & vbCrLfEnd IfLoopClose #7ElseMsgBox ＂您指定目录下的文件不存在！＂， vbInformation + vbOKOnly， ＂信息提示＂End IfEnd Sub

VB保存text数据

Private Sub Form_Load()Text1.Text = ＂＂Open ＂C:/1.TXT＂ For Input As #1While Not EOF(1)Line Input #1, DEMOText1.Text = Text1.Text & DEMO & vbCrLfWendClose #1End SubPrivate Sub Form_Unload(Cancel As Integer)Open ＂C:/1.TXT＂ For Output As #1Print #1, Text1.TextClose #1End Sub'在TEXT1属性里设置多行为TRUE

vb中用text绑定数据库,不显示数据PrivateSubDat

Set txtdata.DataSource = Adodc1 txtdata.DataField = tex9 这个可以这么写吗？ 我看你还是太平点，老老实实循环写吧。

Set Conn = New ADODB.Connection Conn.Open Str Set rs = New ADODB.Recordset rs.Open sqlStr, Conn, adOpenKeyset, adLockOptimistic num = rs.RecordCount For i = 0 To num - 1 For j = 0 To rs.Fields.Count - 1 Text1.Text = Text1.Text & rs(j) & ＂ ＂ Next j Text1.Text = Text1.Text & vbCrLf rs.MoveNext Next i rs.Close

vb如何把计算结果数据记录到text框内

//d.com/zhidao/pic/item/77c6a7efce1b9d16d612f7b1f8deb48f8d54640c.jpg＂ target=＂_blank＂ title=＂点击查看大图＂ class=＂ikqb_img_alink＂> 追问 不行啊，一点就报错。

text1(i)那里不对 追答 控件数组 你清楚么？ 本回答由提问者推荐 答案纠错 | 评论...

怎么在TXT文件中读取数据,并存入VB数组中

如果TXT文件是单行的话 Open ＂c:\1.txt＂ For Binary As #1 Text1.Text = Input(lof(1), 1) Close #1 Dim a a = Split(Text1.Text)如果是多行要加循环Option ExplicitDim a$, n%, k%, c$(), d%Private Sub Form_Click()n = 0Open App.Path & ＂\temp.txt＂ For Input As #1Do Until EOF(1)n = n + 1Line Input #1, aReDim c(n)d = Len(a)k = InStr(1, a, ＂=＂)c(n) = Right(a, (d - k + 1))Print ＂c(＂ & n & ＂)=＂ & c(n)LoopClose #1End Sub...

vb程序让输入在text中的文字显示的代码

'首先看你的文本框里能显示多少个字符，然后记录下这个数据 '我的文本框可以显示32个字符 '需要进行移动的字符串，比如＂123hello@？＂ '下面开始进行字符移动 Private Sub Command1_Click() s = ＂123hello@?＂ Text1.Text = ＂＂ Text1.Text = s + Space(32 - Len(s)) 'Timer1.Enabled = True Timer1.Interval = 500 '文本移动速度500ms End Sub '--------以下这段代码为测试文本框显示长度，编程不需要----------- Private Sub Command2_Click() For i = 1 To 100 Text1.Text = Text1.Text & i Mod 10 Next '运行完看前面出现过几次零，然后加上最后一个可以看见的数字即为文本框显示字符数 End Sub '--------以上这段代码为测试文本框显示长度，编程不需要----------- Private Sub Timer1_Timer() 'Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1) + Left(Text1.Text, 1) '向左移动 Text1.Text = Right(Text1.Text, 1) + Left(Text1.Text, Len(Text1.Text) - 1） '向右移动 End Sub

转载请注明出处51数据库 » vb调取text数据软件