VB 写TXT换行问题

Question

TEXT1写入TXT内容不换行，怎么才能换行啊!

Answer 1

MultiLine 属性

返回或设置一个值，该值指示 TextBox 控件是否能够接受和显示多行文本。在运行时是只读的。

语法

object.MultiLine

object 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。

设置值

MultiLine 属性设置值有：

设置值 描述
True 允许多行文本。
False （缺省值）忽略回车符并将数据限制在一行内。

说明

当键入文本超出文本框时多行 TextBox 控件将使正文卷绕。

使用 ScrollBars 属性也能够在 TextBox 控件中加入滚动条来加大 TextBox 控件的显示范围。如果没有指定水平滚动条，那么在多行 TextBox 中文本将自动地卷绕。

注意 在一个没有缺省按钮的窗体上，在多行 TextBox 控件中按下 ENTER 将把焦点移动到下一行。如果有缺省按钮存在，那么必须按下 CTRL+ENTER E才能移动到下一行。追问

是TXT里面的内容都在一行

追答

那只能根据长度连接vbcrlf 了，需要先用MID一段一段地截取

追问

那代码怎该怎么写

追答

这要看你TEXTbox能放下多少个字

追问

问题是字数不固定，用FOR 循环怎么弄

追答

字数不固定就不知道你想怎么安排了，总有一个原则

Answer 2

在写入的要换行的字符串之间插入 & Vbcrlf & 然后写入TXT就相当于插入了个换行符了。

Answer 3

text1.text="测试" & vbcrlf & "换行"
如果不换行
那的设置.MultiLine = True这个属性只能在设计时设置，运行时不能设置追问

是TXT里面的内容都在一行,我要在TXT里面换行。一行一个数据

追答

你说的是文本文件，那是如何输入的文本文件，使用vb写的，还是已经就有了，想用vb插入换行符

追问

Open "我的txt.txt" For Output As #1
Print #1,Text1.text
Close #1
这样输入的，输入的内容都在一行里面,TEXT1.multiline=true 我的TXT.txt的数据要与TEXT1的每行数据能一一对应就好了

追答

还是不明白你的意思，你是把text1.text ->我的txt.txt
还是我的txt.txt ->text1.text

追问

text1.text ->我的txt.txt
将TEXT1的每行内容，写入到，我的TXT。TXT的每行

追答

按照你的代码，如果你的text1.text的内容是换行，那保存的内容也是换行的啊。

Answer 4

你把要写的数据给我。我给你写一个代码，然后由你自己测试。
基本思路是运用VB换行符。
张志晨追问

TEXT1 是竖的，WITH=430 很小的！在TEXT1里面每行只能输入一个数据（即一个字母），所以，输入数据，一行就只能放一个数据，再次输入就自动在下一行显示，没有回车，输出的TXT文文件是不换行的，
TEXT1里面显示
A
A
A
A
输出则显示:AAAA
在输入的时候按回车了，输出的TXT就会换行
输出则显示:
A
A
A
A

追答

VB2010的代码可以吗？

追问

6.0企业版的可以运行得起来吗

追答

Dim str As String

Private Sub Form_Load()
Me.Caption = "张志晨VB测试程序"
Command1.Caption = "按行存入txt文件"
Text1.Text = "张志晨黑龙江省哈尔滨市"
End Sub

Private Sub Command1_Click()
str = ""
For i = 1 To Len(Text1.Text)
str = str & Mid(Text1.Text, i, 1) & vbCrLf
Next
writeTxt setTxtPathName, str

End Sub

'写入文本
Sub writeTxt(fileName As String, str As String)

Open fileName For Output As #1
Print #1, str
Close #1
MsgBox ("保存成功")

End Sub

Function setTxtPathName() As String
CommonDialog1.Filter = "文本文件|*.txt|文本文件|*.rtf"
CommonDialog1.DialogTitle = "指定文本文件"
'选择一个文本文件
CommonDialog1.ShowSave
setTxtPathName = CommonDialog1.fileName
End Function

本回答被提问者采纳

Answer 5

在格式下挑选自动换行，就可以了！