00问答网
所有问题
当前搜索:
vb读取文件
vb读取文件
里的数据到数组里
答:
Dim p() As ByteDim i As Integer Open Me.CommonDialog1.FileName For Binary As #1 Redim p(LOF(1)) Get #1, , pClose #1For i = 0 To Ubound(p) Me.Text2.Text = Me.Text2.Text & CStr(p(i)) & " "Next i
读取文件
数据到数组一般用Binary模式打开文件,数组的数...
vb
中,
读取
txt文本
文件
的内容到字符串变量,怎么办?
答:
Private Sub Command1_Click() Dim aa As String Open "c:\1.txt" For Input As #1 Line Input #1, aa MsgBox aaEnd Sub上面代码变量aa的值就是
读取
出来txt的数据。
VB
以字节方式
读取文件
答:
VB
编写代理只需要很少的代码。 W\if~t2j CMUB=tvet 代码如下: H+ d@784 Private Sub form_Load() \@$l9nNuDe DaiLi.LocalPort = "1234" /lq#*Lt?Server.RemotePort = "1234" $'[AWj!zs Server.RemoteHost = "211.100.20.26" @A:@+s[&< DaiLi.Listen ` i(\wayv End Sub P&...
VB
.net
读取
文本
文件
答:
Imports System.IOPublic Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim sr As New StreamReader("d:\test.csv") Dim arr1(), arr2(), arr3(), arr4() As Integer Dim a1, a2, a3, a4 As New ArrayList...
vb
6.0
读取
某目录下的所有文本
文件
答:
Print "正在
读取文件
,请稍候。。。"For i = 1 To File1.ListCount Open FPath & File1.List(i - 1) For Input As i Do While Not (EOF(i))Line Input #i, temp s = s & vbCrLf & temp '读入数据 Loop Close s = s & vbCrLf For j = 1 To 50 s = s & "-" '打印...
vb
怎样每隔3分钟文本框自动
读取
文本
文件
不同行的内容?
答:
可以每隔一分种用line input
读取
一行文本 '声明区:const file="c:\abc.txt" ‘假如
文件
在c盘dim filenumber as integer '文件号 '点击按钮打开文件,启动时钟Private Sub Command1_Click() filenumber=freefile() open file for input as #1 Timer1.interval=1000 Timer1.Enabled=tr...
vb
中如何
读取
TXT
文件
中数据,并选取其中一定间隔的数据放入一数组中...
答:
Private Sub Command1_Click()Dim a$, d&, k&, t&, c#()'提取40次数放入数组c中 t = 40 ReDim c(t - 1)'间隔行为每1000行 d = 1000 Open "data.txt" For Input As #1 a = Input(LOF(1), 1)Close b = Split(a, vbCrLf)'提取一定间隔行的第二个数 k = 2 For i = 0 ...
vb
问题:请问怎么用二进制方式(binary)打开文本
文件
(txt)并
读取
里面的...
答:
CDg1.FileName = "*.txt"CDg1.ShowOpen FileNam = CDg1.FileName Open FileNam For Binary As #1 '以二进制
文件
方式打开文件 ReDim tStr(n) As Byte Get #1, , tStr '
读取
文本 Close (1)Text1.Text = StrConv((tStr()),
vb
Unicode) ' 写入text1 End Sub ...
VB
中二进制
文件
的内容怎么
读取
答:
存放二进制
文件
的数据要使用字节型数组,不能是字符型数组:Dim DAT() As Byte Dim FileSize As Long '文件长度 FileSize = FileLen(文件名) '获取文件长度 ReDim DAT(FileSize - 1) As Byte Open 文件名 For Binary As #1 Get #1, , DAT Close 数据已经在DAT数组中了,你可以进行任意处理 ...
vb读取
文本
文件
中每行的某几个字符
答:
Private Sub Command1_Click()Dim a$, s$(), i&, j&, m& ReDim s$(1 To 1000)Open "c:\1.txt" For Input As #1 While Not EOF(1)Line Input #1, a m = m + 1 If Len(a) >= 10 Then s(m) = Mid(a, 7, 4)End If Wend Close #1 If m = 0 Then Exit Sub Re...
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜