xdrn.net
当前位置:首页 >> VB 怎么读取和修改TXT文本文件的内容? >>

VB 怎么读取和修改TXT文本文件的内容?

1.读取某个指定字节 Private Sub Command1_Click() Dim a() As Byte, b As Byte, i As Integer, j, S As String'S = App.Path & "\1.txt" '请修改为实际文件名 S = "C:\Documents and Settings\Administrator\桌面\1.txt" ReDim a(FileLen(S)) Open S

Private Sub Form_click()Dim a$Open "c:\1.txt" For Input As #1DoInput #1, aText1.Text = Text1.Text & a & vbCrLfLoop Until EOF(1)Close #1End Sub复制来知的,应道该回可以答.

你好! 1、对于TXT文件,用什么语言都不能实现任意10条内容,只能从头开始读取;但可能有变通的办法:先产生一个随机数,打开TXT文件,从头开始读取数据,当已读取的数据=随机数时,开始将读取的数据放到变量中,连续存放10个; 2、用OFFICE的WORD文档控件的DLL链接到VB中,在VB中创建一个WORD文档工作平台(空间),将10个数据写入到该文档中,文档取名为www.DOC,最后保存该文档; 3、当然,若你对WORD文档控件的DLL用法不太了解的话,请参考MSDN或网络上查找,这里就不给出代码了,不好意思! 祝你成功!

新建一个工程,然后写窗体代码如下:Option ExplicitPrivate Sub Form_Click() Dim TextLine Open "记录.txt" For Input As #1 ' 打开文件. Do While Not EOF(1) ' 循环至文件尾. Line Input #1, TextLine ' 读入一行数据并将其赋予某变量. Debug.Print TextLine ' 在立即窗口中显示数据. Loop Close #1 ' 关闭文件.End Sub试试看吧,有什么问题欢迎追问.

vb读取text中的每一行,首先读取出text的全部内容,然后分割出每行,再逐行输出.具体代码如下: private sub command1_click() dim a as string,b as string,i as long a=text1.text '第一步获取text全部内容 b = split(a, vbcrlf) '第二部分割每一行 for i = 0 to ubound(a) print b(i) '输出每行的内容 next end sub

'函数:一次性读文件至变量,非常快function getfile(filename as string) as stringdim i as integer, s as string, bb() as byteif dir(filename) = "" then exit functioni = freefileredim bb(filelen(filename) - 1)open filename for binary as #iget #i, , bbclose

要修改的文件d:\123.txt,修改后的文件保存为d:\abc.txtprivate sub command1_click() dim filenumber1, filenumber2, str as string filenumber1 = freefile '得到一个未使用的文件号. open "d:\123.txt" for input as #filenumber1 '打开要读取的文件

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

private sub command1_click() open "1.txt" for input as #1 line input #1,aspect text1.text=aspect nl=chr(13)&chr(10) do while not eof(1) line input #1,aspect whole=whole & nl & aspect loop text2.text=whole close #1 end sub 必要前提:第一行必须为标题.text1为标题text2为内容,最好不同的内容存放在不同的文本文件中 要达到你这样的要求比较麻烦,还是多几个按钮比较好

给你一个建简易的记事本吧,稍微修改一下就行了

网站首页 | 网站地图
All rights reserved Powered by www.xdrn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com