1:怎样从一个文本文件中读取一个特定行的从某个字符开始的长度已知的字符串?
比如读取一个文件中第三行从第四个字符开始长度为5的字符串到一个变量中?或者怎样把一整行读取到一个变量中也行。
2:“实时监控功能”有一个文本匡,显示的是某一变量的值。该变量5分钟更新一次,有求文本匡跟着更新。
3:窗体上有一个文本匡,一个按扭,要求点一下按扭,自动加一个文本匡(不是拉进来一个!!!)
比如读取一个文件中第三行从第四个字符开始长度为5的字符串到一个变量中?或者怎样把一整行读取到一个变量中也行。
2:“实时监控功能”有一个文本匡,显示的是某一变量的值。该变量5分钟更新一次,有求文本匡跟着更新。
3:窗体上有一个文本匡,一个按扭,要求点一下按扭,自动加一个文本匡(不是拉进来一个!!!)
2.....自己找書吧
3.
Dim aa As TextBox
Private Sub Command1_Click()
Set aa = Me.Controls.Add("vb.textbox", "adfasdf")
aa.Visible = True
aa.位置=""
End Sub
然后使用如下代码
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)现在文件放在文本框中了,用sendmessate text1.hwnd, EM_GETLINE, buf, size的方法读取某个指定行。2)用一个timer,一秒钟更新一次就行了。
3)同上面的,还可以用load方法。
Dim aa As DatePrivate Sub Form_Load()
aa = Now
End SubPrivate Sub Timer1_Timer()
If DateDiff("n", aa, Now) > 5 Then
'讀出資料再寫進文本內
End If
End Sub