加入文本文件内的内容是 ********************
我想通过vbs使其变成
*****
*****
*****
*****
*****
并保存
VBS如何在文本文件中添加回车改变格式?
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
2条回答 默认 最新
- Go 旅城通票 2018-12-04 08:25关注
vbs回车就是chr(13)&chr(10),直接chr(10)也可以,但是记事本打开不会换行,需要\r\n才会
function writeText(path,charset,text)'写文件 set ts=CreateObject("adodb.stream") ts.mode=3'写模式 ts.type=2'文本模式 ts.open ts.charset=charset'内容编码 ts.WriteText text,1 ts.SaveToFile path,2 ts.close:set ts=nothing end function dim text text="****"&chr(13)&chr(10)&"****"&chr(13)&chr(10)&"****"&chr(13)&chr(10)&"****"&chr(13)&chr(10)&"****" writeText "E:\t.txt","utf-8",text msgbox "写入文件成功"
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥60 版本过低apk如何修改可以兼容新的安卓系统
- ¥25 由IPR导致的DRIVER_POWER_STATE_FAILURE蓝屏
- ¥50 有数据,怎么建立模型求影响全要素生产率的因素
- ¥50 有数据,怎么用matlab求全要素生产率
- ¥15 TI的insta-spin例程
- ¥15 完成下列问题完成下列问题
- ¥15 C#算法问题, 不知道怎么处理这个数据的转换
- ¥15 YoloV5 第三方库的版本对照问题
- ¥15 请完成下列相关问题!
- ¥15 drone 推送镜像时候 purge: true 推送完毕后没有删除对应的镜像,手动拷贝到服务器执行结果正确在样才能让指令自动执行成功删除对应镜像,如何解决?