怎么在输入文本中实现自动换行呢
比如
xxxxxxxx换行yyyyyyyyy >1.tx
生成的文本是
XXXXXXX
YYYYYY
比如
xxxxxxxx换行yyyyyyyyy >1.tx
生成的文本是
XXXXXXX
YYYYYY
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 自动换行问题
查看 2,010 回复 21
楼 主
自动换行问题
发表于 2007-04-27 04:41 · 中国 福建 福州 电信
第 2 楼
发表于 2007-04-27 04:48 · 中国 河南 洛阳 联通
@echo off
:s
set /p l=
echo %l%>>1.txt
cls
goto s
:s
set /p l=
echo %l%>>1.txt
cls
goto s
第 3 楼
发表于 2007-04-27 06:12 · 中国 湖北 武汉 电信
To enixchen:
第一次用VBS解决问题，让大家见笑了。
第一次用VBS解决问题，让大家见笑了。
Dim fso,wshell
Set wshell=WScript.CreateObject("Wscript.shell")
Set fso=CreateObject("scripting.filesystemobject")
Set file=fso.opentextfile("huanhang.txt")
all=file.readall
s=replace(all,"换行",vbcrlf)
file.close()
Set b=fso.CreateTextFile("new.txt")
b.Write(s)
b.Close
wshell.Run "new.txt"
第 4 楼
发表于 2007-04-27 06:21 · 中国 福建 福州 电信
echo dim ws>>12.vbs
echo str = "Sorry girl:$I think I...$don't love you!">>12.vbs
echo Num = len(str)>>12.vbs
echo set ws=wscript.createobject("wscript.shell")>>12.vbs
echo ws.run("notepad.exe")>>12.vbs
echo wscript.sleep 200>>12.vbs
echo ws.appactivate "无标题 - 记事本">>12.vbs
echo wscript.sleep 500>>12.vbs
echo for i = 1 to Num>>12.vbs
echo Input = Mid(str, i, 1)>>12.vbs
echo if Input = "$" then Input = vbCr>>12.vbs
echo wscript.sleep 500>>12.vbs
echo ws.sendkeys(Input)>>12.vbs
echo next>>12.vbs
我也搞定了 用的是ECHO````汗 但是会重复写入```
echo str = "Sorry girl:$I think I...$don't love you!">>12.vbs
echo Num = len(str)>>12.vbs
echo set ws=wscript.createobject("wscript.shell")>>12.vbs
echo ws.run("notepad.exe")>>12.vbs
echo wscript.sleep 200>>12.vbs
echo ws.appactivate "无标题 - 记事本">>12.vbs
echo wscript.sleep 500>>12.vbs
echo for i = 1 to Num>>12.vbs
echo Input = Mid(str, i, 1)>>12.vbs
echo if Input = "$" then Input = vbCr>>12.vbs
echo wscript.sleep 500>>12.vbs
echo ws.sendkeys(Input)>>12.vbs
echo next>>12.vbs
我也搞定了 用的是ECHO````汗 但是会重复写入```
第 5 楼
发表于 2007-04-27 06:36 · 中国 福建 福州 电信
echo dim ws>>12.vbs
echo str = "Sorry girl:$I think I...$don't love you!">>12.vbs
echo Num = len(str)>>12.vbs
echo set ws=wscript.createobject("wscript.shell")>>12.vbs
echo ws.run("notepad.exe")>>12.vbs
echo wscript.sleep 200>>12.vbs
echo ws.appactivate "无标题 - 记事本">>12.vbs
echo wscript.sleep 500>>12.vbs
echo for i = 1 to Num>>12.vbs
echo Input = Mid(str, i, 1)>>12.vbs
echo if Input = "$" then Input = vbCr>>12.vbs
echo wscript.sleep 500>>12.vbs
echo ws.sendkeys(Input)>>12.vbs
echo next>>12.vbs
start 12.vbs
taskkill /f /im notepad.exe
del 12.vbs
把重复写入问题也解决了````
汗 先结束记事本的进程 再删掉文件
```但是``
有没办法让这个程序在
输出
don't love you！
之后自动保存为一个TXT文本
`````不要人工来保存呢
期待高人~
echo str = "Sorry girl:$I think I...$don't love you!">>12.vbs
echo Num = len(str)>>12.vbs
echo set ws=wscript.createobject("wscript.shell")>>12.vbs
echo ws.run("notepad.exe")>>12.vbs
echo wscript.sleep 200>>12.vbs
echo ws.appactivate "无标题 - 记事本">>12.vbs
echo wscript.sleep 500>>12.vbs
echo for i = 1 to Num>>12.vbs
echo Input = Mid(str, i, 1)>>12.vbs
echo if Input = "$" then Input = vbCr>>12.vbs
echo wscript.sleep 500>>12.vbs
echo ws.sendkeys(Input)>>12.vbs
echo next>>12.vbs
start 12.vbs
taskkill /f /im notepad.exe
del 12.vbs
把重复写入问题也解决了````
汗 先结束记事本的进程 再删掉文件
```但是``
有没办法让这个程序在
输出
don't love you！
之后自动保存为一个TXT文本
`````不要人工来保存呢
期待高人~
第 6 楼
发表于 2007-04-27 06:42 · 中国 上海 浦东新区 电信
楼主要的是自动换行输出内容到文本中
其实echo XXXXX>1.txt
echo YYYY>>1.txt
.......
或者vbs都可以解决
楼主的意思可能是想知道是否在脚本中存在回车符，至于这个问题我也不知道
其实echo XXXXX>1.txt
echo YYYY>>1.txt
.......
或者vbs都可以解决
楼主的意思可能是想知道是否在脚本中存在回车符，至于这个问题我也不知道
第 7 楼
发表于 2007-04-27 07:07 · 中国 广西 玉林 博白县 电信
Originally posted by enixchen at 2007-4-26 17:21:
echo dim ws>>12.vbs
echo str = "Sorry girl:$I think I...$don't love you!">>12.vbs
echo Num = len(str)>>12.vbs
echo set ws=wscript.createobject("wscript.shell&quo ...
我这段VBS只是演示用的，所以没加关闭记事本部分
第 8 楼
发表于 2007-04-27 11:21 · 中国 福建 福州 电信
楼上老大 那保存并关掉要怎么实现呢？？？
第 9 楼
发表于 2007-04-28 00:29 · 中国 湖北 武汉 电信
Originally posted by enixchen at 2007-4-26 22:21:
那保存并关掉要怎么实现呢？？？
不明白你说的什么意思。
用VBS写进文件之后，它自动保存。
第 10 楼
用下面这个也可以
发表于 2007-04-28 00:34 · 中国 湖北 武汉 电信
@echo off&Setlocal EnableDelayedExpansion
for /f "delims=" %%a in (1.txt) do (
set str=%%a
set str=!str:换行=$_!
exit|cmd/kprompt !str!>>new_.txt
)
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| huzixuan | +4 | 2007-04-29 23:37 |
第 11 楼
发表于 2007-04-28 02:39 · 中国 福建 福州 连江县 电信
dim ws
str = "Sorry girl:$I think I...$don't love you!"
Num = len(str)
set ws=wscript.createobject("wscript.shell")
ws.run("notepad.exe")
wscript.sleep 200
ws.appactivate " 记事本 "
wscript.sleep 500
for i = 1 to Num
Input = Mid(str, i, 1)
if Input = "$" then Input = vbCr
wscript.sleep 500
ws.sendkeys(Input)
next
我的问题就是关于zh159
的这段代码`
怎么样实现
建立一个名为XX。TXT的文本
自动输入
然后自动保存 这样
str = "Sorry girl:$I think I...$don't love you!"
Num = len(str)
set ws=wscript.createobject("wscript.shell")
ws.run("notepad.exe")
wscript.sleep 200
ws.appactivate " 记事本 "
wscript.sleep 500
for i = 1 to Num
Input = Mid(str, i, 1)
if Input = "$" then Input = vbCr
wscript.sleep 500
ws.sendkeys(Input)
next
我的问题就是关于zh159
的这段代码`
怎么样实现
建立一个名为XX。TXT的文本
自动输入
然后自动保存 这样
第 12 楼
Use GNU sed
发表于 2007-05-13 07:27 · 中国 湖北 武汉 电信
sed "s/换行/\n/g" urfile
第 13 楼
发表于 2007-05-13 13:06 · 中国 广东 河源 电信
我来了，顶上去
第 14 楼
发表于 2007-05-13 13:54 · 中国 陕西 西安 电信
Dim WShell,fso,file
Set WShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("Outext.txt",2,True)
str = "Sorry girl:$I think I...$don't love you!"
file.Write Replace(str,"$",vbCrLf)
file.Close
Res = MsgBox("文本已经生成,是否现在查看?",1,"提示")
If Res = 1 Then WShell.run "Outext.txt"
Set file = Nothing
Set fso = Nothing
Set WShell = Nothing
Set WShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("Outext.txt",2,True)
str = "Sorry girl:$I think I...$don't love you!"
file.Write Replace(str,"$",vbCrLf)
file.Close
Res = MsgBox("文本已经生成,是否现在查看?",1,"提示")
If Res = 1 Then WShell.run "Outext.txt"
Set file = Nothing
Set fso = Nothing
Set WShell = Nothing
第 15 楼
发表于 2007-05-13 14:06 · 中国 广东 广州 联通
很简单啊 ？
@echo off
echo 情输入您要输入的内容。按Ctrl+Z键结束。
copy con 1.txt
pause
如此，几行代码搞定。。
@echo off
echo 情输入您要输入的内容。按Ctrl+Z键结束。
copy con 1.txt
pause
如此，几行代码搞定。。
知，不觉多。不知，乃求知
论坛跳转: