中国DOS联盟

怎么在输入文本中实现自动换行呢 比如 xxxxxxxx换行yyyyyyyyy >1.tx 生成的文本是 XXXXXXX YYYYYY

@echo off :s set /p l= echo %l%>>1.txt cls goto s

To enixchen: 第一次用VBS解决问题，让大家见笑了。

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 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 XXXXX>1.txt echo YYYY>>1.txt ....... 或者vbs都可以解决 楼主的意思可能是想知道是否在脚本中存在回车符，至于这个问题我也不知道

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只是演示用的，所以没加关闭记事本部分

楼上老大 那保存并关掉要怎么实现呢？？？

Originally posted by enixchen at 2007-4-26 22:21: 那保存并关掉要怎么实现呢？？？

不明白你说的什么意思。 用VBS写进文件之后，它自动保存。

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的文本 自动输入 然后自动保存 这样

我来了，顶上去

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

很简单啊 ？ @echo off echo 情输入您要输入的内容。按Ctrl+Z键结束。 copy con 1.txt pause 如此，几行代码搞定。。

知，不觉多。不知，乃求知