VB如何Print在text里?
展开全部
那叫读写text,你可以搜索“vb操作txt”,会出现很多方法,下面是我抄来的:
VB6.0对TXT文本文件的读写删操作
把文本文件内容写到TextBox:
Dim TempFile As Long
Dim LoadBytes() As Byte
TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile
Text1.Text=StrConv(LoadBytes,vbUniCode)
把TextBox内容写入文本文件:
Dim TempFile As Long
Dim SaveBytes() As Byte
SaveBytes=StrConv(Text1.Text,vbFromUniCode)
TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile
删除TXT文件里的内容:
Private Function DelLine(strFile As String, RLine As Long, newFile As String, SameLine As Boolean)
Dim s As String, n As String, i As Long
i = 1
'//打开源文件
Open strFile For Input As #1
Do Until EOF(1)
Line Input #1, s
If RLine = i Then '如果是指定的行数就进行下面的操作
If SameLine = True Then '是否保持源文件行数不变(以空白字符替换这一行内容)的提示,True保持源文件的行数,False为直接删除这一行的内容
s = ""
n = n & s & vbCrLf '将空字符串赋给变量n,以保持源文件的行数
' MsgBox strFile & " 文件中,第 " & RLine & " 行内容" & vbCrLf & s & vbCrLf & "已经删除", vbInformation, "消息提示"
End If
' s="也可以把这一行的内容改成自己需要的"
Else '如果不是指定的行数,就将s的内容赋给变量n 以存储数据
n = n & s & vbCrLf '将s的内容赋给n 并以一个回车符号结束....
End If
i = i + 1
Loop
Close #1
'//写入新文件,如果和源文件同名则会覆盖源文件
Open newFile For Output As #2
Print #2, n '将n变量里的数据写入新文件
Close #2
End Function
'调用方法:
'比如要把c:\1.txt 删除其中的第5行内容,并保留源文件总行数(删除的这行插入一空字符串)
'DelLine "C:\1.txt", 5, "C:\2.txt", True
'删除C:\1.txt 删除里面的第一行,且不保留文件的总行数
DelLine "C:\1.txt", 1, "C:\1.txt", False
VB6.0对TXT文本文件的读写删操作
把文本文件内容写到TextBox:
Dim TempFile As Long
Dim LoadBytes() As Byte
TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile
Text1.Text=StrConv(LoadBytes,vbUniCode)
把TextBox内容写入文本文件:
Dim TempFile As Long
Dim SaveBytes() As Byte
SaveBytes=StrConv(Text1.Text,vbFromUniCode)
TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile
删除TXT文件里的内容:
Private Function DelLine(strFile As String, RLine As Long, newFile As String, SameLine As Boolean)
Dim s As String, n As String, i As Long
i = 1
'//打开源文件
Open strFile For Input As #1
Do Until EOF(1)
Line Input #1, s
If RLine = i Then '如果是指定的行数就进行下面的操作
If SameLine = True Then '是否保持源文件行数不变(以空白字符替换这一行内容)的提示,True保持源文件的行数,False为直接删除这一行的内容
s = ""
n = n & s & vbCrLf '将空字符串赋给变量n,以保持源文件的行数
' MsgBox strFile & " 文件中,第 " & RLine & " 行内容" & vbCrLf & s & vbCrLf & "已经删除", vbInformation, "消息提示"
End If
' s="也可以把这一行的内容改成自己需要的"
Else '如果不是指定的行数,就将s的内容赋给变量n 以存储数据
n = n & s & vbCrLf '将s的内容赋给n 并以一个回车符号结束....
End If
i = i + 1
Loop
Close #1
'//写入新文件,如果和源文件同名则会覆盖源文件
Open newFile For Output As #2
Print #2, n '将n变量里的数据写入新文件
Close #2
End Function
'调用方法:
'比如要把c:\1.txt 删除其中的第5行内容,并保留源文件总行数(删除的这行插入一空字符串)
'DelLine "C:\1.txt", 5, "C:\2.txt", True
'删除C:\1.txt 删除里面的第一行,且不保留文件的总行数
DelLine "C:\1.txt", 1, "C:\1.txt", False
展开全部
Text文本框不支持Printf方法。要想把内容通过代码加入到文本框中,要先确定加入的位置。如果是加入到它的最前面或是最后面的话就特别简单:
只要Text1.Text=Text1.Text & a$ & "或字符串常量“--------------这是加在后面的例子。
只要Text1.Text=Text1.Text & a$ & "或字符串常量“--------------这是加在后面的例子。
追问
看了没看懂。高手 支持print的除了在窗体上,还有哪些对象支持呢
追答
print方法
在VB中,Print方法是用来输出信息的专用过程,可以用来显示文本字符串和表达式的值。Visual
Basic允许在窗体、图形框和打印机用Print方法显示文本字符串。
格式: [对象.]Print 表达式表
“表达式表”是一个或多个表达式,可以是数值表达式或字符串。若为数值表达式,打印出表达式的值,但在数值的前面有一个符号位(负号用“-”表示,正号用空格代替),每输出一个数值后自动留出一个空格;而字符串则原样照打,前后均无空格。如果省略“表达式表”,则输出一个空行。
表达式表的语法结构如下:{Spc(n) | Tab(n) |表达式 分隔符}
Spc(n):可选。用来在输出中插入空白字符,这里n为要插入的空白字符数。
Tab(n):可选。用来将插入点定位在绝对列号上,这里n为列号。要输出的内容放在Tab函数的后面,并用分号(;)分开。
如:Print Tab(25);300
将在第25列开始输出数值300。(注意数值300前的符号位和其后的空格位)
表达式:可选,表示要打印的数值表达式或字符串表达式。
分隔符:可选,指定下一个字符的插入点。使用分号(;)或空格,直接将插入点定位在上一个被显示的字符之后(称紧凑输出格式);使用逗号(,)将下一个输出字符的插入点定位在制表符上,即以14个字符位置为单位把一个输出行分为若干个区段,逗号后面的表达式在下一个区段输出(称标准输出格式);如果省略插入点位置符号,则在下一行打印下一字符。
注意:(1)输出时,逻辑型数据,打印True或False;日期格式以标准短日期格式书写;若表达式为空,则无内容可写。(2)如果缺省对象,则表示当前窗体。
例1:Form1.Print "hello"
例2:Print "hello"
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
text1="内容"
或:
text1.text="内容"
'请参考采纳!谢谢!
或:
text1.text="内容"
'请参考采纳!谢谢!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
无法在TextBox上使用Print
原因:TextBox是一个控件。这个控件不支持Print
原因:TextBox是一个控件。这个控件不支持Print
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
直接用textbox的.text属性
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询