txt 自动换行
答案:2 悬赏:0 手机版
解决时间 2021-03-08 15:46
- 提问者网友：做自己de王妃
- 2021-03-08 07:49
txt 自动换行
最佳答案
- 五星知识达人网友：掌灯师
- 2021-03-08 08:46
b CreateFile()
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\testfile.txt", True)
' 写一行，并且带有新行字符。
tf.WriteLine("Testing 1, 2, 3.")
'向文件写三个新行字符。
tf.WriteBlankLines(3)
'写一行。
tf.Write ("This is a test.")
tf.Close
End Sub
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\testfile.txt", True)
' 写一行，并且带有新行字符。
tf.WriteLine("Testing 1, 2, 3.")
'向文件写三个新行字符。
tf.WriteBlankLines(3)
'写一行。
tf.Write ("This is a test.")
tf.Close
End Sub
全部回答
- 1楼网友：蕴藏春秋
- 2021-03-08 10:24
打开txt 上边有个“格式” 下拉菜单的自动换行打上勾就行
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯