曲建华 2018-12-04 08:03 采纳率: 100%
浏览 1675
已采纳

VBS如何在文本文件中添加回车改变格式?

加入文本文件内的内容是 ********************
我想通过vbs使其变成
*****
*****
*****
*****
*****
并保存

  • 写回答

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 "写入文件成功"
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

悬赏问题

  • ¥15 数据库数据成问号了,前台查询正常,数据库查询是?号
  • ¥15 算法使用了tf-idf,用手肘图确定k值确定不了,第四轮廓系数又太小才有0.006088746097507285,如何解决?(相关搜索:数据处理)
  • ¥15 彩灯控制电路,会的加我QQ1482956179
  • ¥200 相机拍直接转存到电脑上 立拍立穿无线局域网传
  • ¥15 (关键词-电路设计)
  • ¥15 如何解决MIPS计算是否溢出
  • ¥15 vue中我代理了iframe,iframe却走的是路由,没有显示该显示的网站,这个该如何处理
  • ¥15 操作系统相关算法中while();的含义
  • ¥15 CNVcaller安装后无法找到文件
  • ¥15 visual studio2022中文乱码无法解决