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

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

2个回答

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 "写入文件成功"
caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 lz是不是考虑给他一个采纳鼓励下,O(∩_∩)O
一年多之前 回复
caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 bobo说的太详细!
一年多之前 回复

for i = 1 to 5
str = str & "*****" & vbcrlf
next

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
VBS中如何替换文本文件中的部分字符?

例如文本文件中的字符为:****....11111 如何将上述文本中的“*”和“.“全部替换为0.求代码???

vbs读取两个文本文件之后,比较文本中的内容,相同的输出Y

vbs读取两个文本文件之后,比较文本中的内容,相同的输出Y,不同的输出N。输出到excel中。1.txt 里面的内容是 aaa,bbb,ccc。2.txt里面的内容是aaa,ccc,eee,输出结果最后在exc如图所示el中![图片说明](https://img-ask.csdn.net/upload/201803/30/1522423097_373510.jpg)

VBS批量替换(转换)文本文件中的单位(求达人瞧一下)

需求:遍历文本文件,在里面找到像素单位(例:“100px”),替换成相对单位(例如:“3rem”);px与rem单位转换过程中是一个固定比例。 研究半天弄了下面一个脚本,但是不能替换到位。望大佬给个意见 ``` Dim regEx,Match,Matches Set regEx = New RegExp '创建一个正则表达式 regEx.Pattern = "^[1-9]\d*px$" '设置正则表达式的匹配模式 regEx.IgnoreCase = True '设置为不区分大小写 regEx.Global = True '设置为全局可用 dim fso, f set fso = CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("1.txt", 1, false) '第二个参数 1 表示只读打开,第三个参数表示目标文件不存在时是否创建 set e = fso.OpenTextFile("2.txt", 8, True) Do Until f.AtEndOfStream strLine = f.ReadLine() '从当前位置向后读取直到遇到换行符(不读取换行符),并将当前位置移动到下一行的第一个字符,注意:无参数 Set Matches = regEx.Execute(strLine) '执行搜索 For Each Match in Matches '遍历所有的匹配 x=Len(Match) n=Left(Match,x-2) ' 拆分去掉最后的px o = n/30 ' 换算。 p ="rem" replStr = o&p' 拼接。 MsgBox regEx.Peplace(strLine,replStr) Next e.WriteLine(strLine) Loop f.Close() e.Close() set f = nothing set fso = nothing ```

如何用vbs隐藏文件以及关闭显示隐藏文件?

想要在vbs脚本中添加一段代码,以实现取消显示隐藏文件,并把指定目录下的文件夹(文件夹内的子文件夹和文件不隐藏)和文件隐藏。如隐藏D盘根目录下的所有文件夹和文件,但文件夹里的内容不隐藏(太费时)。

关于vbs脚本发送文本到qq的问题

我想问一下就是利用vbs脚本将excel里面的单元格读出来发送到qq怎么实现,有没有大佬指教一下,最好带一下代码,刚开始接触vbs用起来不是很熟练,万分感谢

VBS修改xml文件????????、、、、?

![图片说明](https://img-ask.csdn.net/upload/201812/04/1543911508_818522.jpg) 我想将这个xml文件的第29行内容中的*号实现换行,即每隔20个*加一个回车,假设有10000个*,并保存,求代码啊

VBS如何修改文件的换行方式?

源文件中某一行的换行方式未知,但是在vbs中使用readline语句读取的时候会报错,readline中识别的换行符号是vbcrlf,怎么才能找到源文件中使用的换行符号,并给他替换成vbcrlf,求大神解答!!!!!

JAVA中运行.vbs文件,没反应,什么原因 ?

Runtime.getRuntime().exec("cscript E:\\w2_0_2\\bin\\stop-g.vbs"); 使用上面一句代码,调试程序也不报错,但没有起到双击运行stop-g.vbs的效果,什么原因? 请指点,多谢。 .vbs中的代码如下 set ws=WScript.CreateObject("WScript.Shell") ws.Run "E:\w2_0_2\\bin\stop-g.bat",0

c语言如何删除文本文件的内容,和读取指定文件夹里的文件?

具体来说,逐行读取部分的文件,读取其中部分数据,判断后决定是否删除本行数据,文件每天都在更新,想达到放入指定文件夹就可以读取并且删除部分不合格数据的功能,我是个c萌新,求大家帮个忙,谢谢!

运行VBS文件提示没有权限,求帮助

![图片说明](https://img-ask.csdn.net/upload/201711/01/1509527121_616880.png)这是代码:'on error resume next set sysenv1 = CreateObject("WScript.Shell") set sysenv=sysenv1.Environment("system") '系统环境变量的数组对象 thepath=sysenv("path") newpath=sysenv1.CurrentDirectory & "\Contents\Cygwin\Versions2.0.a9.oga.1\i686" if Instr(thepath,newpath)=0 then sysenv("path")=thepath & ";" & newpath '添加变量 end if thepath=sysenv("path") 'Wscript.echo(thepath) Wscript.echo 本人完全小白,安装软件最后一步不行,求解决方法

vbs 怎么对 txt文本进行读写操作?

想让vbs记录用户的操作,并写在记事本里。本人新手,求大神帮忙!

是否可以在PHP中运行vbs文件

<div class="post-text" itemprop="text"> <pre><code>$WshShell = new COM("WScript.Shell"); $obj = $WshShell-&gt;Run("Test.vbs"); </code></pre> <p>I try run this command on php, but it does not work.</p> </div>

Advanced Installer 调用VBS问题

使用Advanced Installer 打包安装程序,安装程序需要使用VBS调用安装程序中的一个文件执行操作,这个VBS和执行文件都在安装程序中,请问怎么能成功调用这个VBS?

文本怎么导出来不含某些数字的行

有一个txt文件,很多行数字,每一行都是六个数字,数字之间都用逗号分开,能否写一个vbs,导出来不含某些特定数字的那些行,

vs2010打包msi程序,如何在安装时自动一个vbs或者bat脚本文件

我写的Activex控件,在html调用的时候有的电脑会提示某些加载项无法运行,百度的解决方案是将Activex设置都启用,加信任站点,所以就写在了一个bat文件里,用vbs调用(因为bat文件会弹出黑框),vs2010打包msi程序,想要在安装时自动执行这个vbs运行文件,应该如何设置,急急急

使用vbs隐藏可执行文件.exe的问题

DIM objShell set objShell = wscript.createObject("wscript.shell") iReturn = objShell.Run("cmd.exe /C C:\xx.exe", 0, TRUE) 我这个.exe文件执行的时候会弹出两个窗口,上用了上面的命令只能隐藏最开始打开的窗口,怎么把之后打开的窗口也隐藏起来?两个窗口相继打开的时间不到1秒

vbs中怎样用参数传递的路径,并运行该路径下的程序

下面是我的一段代码,路径传进去了但是根据传入的地址无法找到资源,path若是写死是可以执行的,请大神帮忙解决 Set objArgs = WScript. Arguments For x = 0 to objArgs.Count - 1 WScript.Echo objArgs(x) Dim wsh Set wsh = CreateObject("WScript.Shell") path =Cstr(x) wsh.Run path Next

Python调用多个VBS函数该如何操作?

初学Python,网上搜索说用这个方法 import subprocess subprocess.call ('cscript test1.vbs') 然后尝试 import subprocess subprocess.call ('cscript test1.vbs') subprocess.call ('cscript test2.vbs') 测试发现调用顺序为先执行第一个VBS程序,当程序执行完毕之后,再执行第二个VBS程序 之后又尝试将代码更改为 import subprocess subprocess.call ('cscript test1.vbs' and 'cscript test2.vbs) 但运行之后发现只运行第二个VBS程序,第一个不执行 这几天也尝试了其他方法,但一直都是两个程序无法同时运行,想询问下各位大佬该怎么编写才能同时执行,谢谢

我如何从PHP运行带有参数的.vbs文件

<div class="post-text" itemprop="text"> <p>I've tried</p> <pre><code>$WshShell = new COM("WScript.Shell"); $obj = $WshShell-&gt;Run("cscript ABSOLUTE/PATH/TO/my_vbs_code.vbs", 0, true); </code></pre> <p>and</p> <pre><code>exec('wscript "C:/path/to/script.vbs"'); </code></pre> <p>but neither of them work, i am using the latest PHP using IIS server on windows. My VBScript is used to send an email using Outlook 2015.</p> <p>To use these functions do i need to edit my php.ini or is there some other way of doing this?</p> </div>

在中国程序员是青春饭吗?

今年,我也32了 ,为了不给大家误导,咨询了猎头、圈内好友,以及年过35岁的几位老程序员……舍了老脸去揭人家伤疤……希望能给大家以帮助,记得帮我点赞哦。 目录: 你以为的人生 一次又一次的伤害 猎头界的真相 如何应对互联网行业的「中年危机」 一、你以为的人生 刚入行时,拿着傲人的工资,想着好好干,以为我们的人生是这样的: 等真到了那一天,你会发现,你的人生很可能是这样的: ...

程序员请照顾好自己,周末病魔差点一套带走我。

程序员在一个周末的时间,得了重病,差点当场去世,还好及时挽救回来了。

技术大佬:我去,你写的 switch 语句也太老土了吧

昨天早上通过远程的方式 review 了两名新来同事的代码,大部分代码都写得很漂亮,严谨的同时注释也很到位,这令我非常满意。但当我看到他们当中有一个人写的 switch 语句时,还是忍不住破口大骂:“我擦,小王,你丫写的 switch 语句也太老土了吧!” 来看看小王写的代码吧,看完不要骂我装逼啊。 private static String createPlayer(PlayerTypes p...

和黑客斗争的 6 天!

互联网公司工作,很难避免不和黑客们打交道,我呆过的两家互联网公司,几乎每月每天每分钟都有黑客在公司网站上扫描。有的是寻找 Sql 注入的缺口,有的是寻找线上服务器可能存在的漏洞,大部分都...

上班一个月,后悔当初着急入职的选择了

最近有个老铁,告诉我说,上班一个月,后悔当初着急入职现在公司了。他之前在美图做手机研发,今年美图那边今年也有一波组织优化调整,他是其中一个,在协商离职后,当时捉急找工作上班,因为有房贷供着,不能没有收入来源。所以匆忙选了一家公司,实际上是一个大型外包公司,主要派遣给其他手机厂商做外包项目。**当时承诺待遇还不错,所以就立马入职去上班了。但是后面入职后,发现薪酬待遇这块并不是HR所说那样,那个HR自...

女程序员,为什么比男程序员少???

昨天看到一档综艺节目,讨论了两个话题:(1)中国学生的数学成绩,平均下来看,会比国外好?为什么?(2)男生的数学成绩,平均下来看,会比女生好?为什么?同时,我又联想到了一个技术圈经常讨...

总结了 150 余个神奇网站,你不来瞅瞅吗?

原博客再更新,可能就没了,之后将持续更新本篇博客。

副业收入是我做程序媛的3倍,工作外的B面人生是怎样的?

提到“程序员”,多数人脑海里首先想到的大约是:为人木讷、薪水超高、工作枯燥…… 然而,当离开工作岗位,撕去层层标签,脱下“程序员”这身外套,有的人生动又有趣,马上展现出了完全不同的A/B面人生! 不论是简单的爱好,还是正经的副业,他们都干得同样出色。偶尔,还能和程序员的特质结合,产生奇妙的“化学反应”。 @Charlotte:平日素颜示人,周末美妆博主 大家都以为程序媛也个个不修边幅,但我们也许...

如果你是老板,你会不会踢了这样的员工?

有个好朋友ZS,是技术总监,昨天问我:“有一个老下属,跟了我很多年,做事勤勤恳恳,主动性也很好。但随着公司的发展,他的进步速度,跟不上团队的步伐了,有点...

我入职阿里后,才知道原来简历这么写

私下里,有不少读者问我:“二哥,如何才能写出一份专业的技术简历呢?我总感觉自己写的简历太烂了,所以投了无数份,都石沉大海了。”说实话,我自己好多年没有写过简历了,但我认识的一个同行,他在阿里,给我说了一些他当年写简历的方法论,我感觉太牛逼了,实在是忍不住,就分享了出来,希望能够帮助到你。 01、简历的本质 作为简历的撰写者,你必须要搞清楚一点,简历的本质是什么,它就是为了来销售你的价值主张的。往深...

外包程序员的幸福生活

今天给你们讲述一个外包程序员的幸福生活。男主是Z哥,不是在外包公司上班的那种,是一名自由职业者,接外包项目自己干。接下来讲的都是真人真事。 先给大家介绍一下男主,Z哥,老程序员,是我十多年前的老同事,技术大牛,当过CTO,也创过业。因为我俩都爱好喝酒、踢球,再加上住的距离不算远,所以一直也断断续续的联系着,我对Z哥的状况也有大概了解。 Z哥几年前创业失败,后来他开始干起了外包,利用自己的技术能...

优雅的替换if-else语句

场景 日常开发,if-else语句写的不少吧??当逻辑分支非常多的时候,if-else套了一层又一层,虽然业务功能倒是实现了,但是看起来是真的很不优雅,尤其是对于我这种有强迫症的程序"猿",看到这么多if-else,脑袋瓜子就嗡嗡的,总想着解锁新姿势:干掉过多的if-else!!!本文将介绍三板斧手段: 优先判断条件,条件不满足的,逻辑及时中断返回; 采用策略模式+工厂模式; 结合注解,锦...

深入剖析Springboot启动原理的底层源码,再也不怕面试官问了!

大家现在应该都对Springboot很熟悉,但是你对他的启动原理了解吗?

离职半年了,老东家又发 offer,回不回?

有小伙伴问松哥这个问题,他在上海某公司,在离职了几个月后,前公司的领导联系到他,希望他能够返聘回去,他很纠结要不要回去? 俗话说好马不吃回头草,但是这个小伙伴既然感到纠结了,我觉得至少说明了两个问题:1.曾经的公司还不错;2.现在的日子也不是很如意。否则应该就不会纠结了。 老实说,松哥之前也有过类似的经历,今天就来和小伙伴们聊聊回头草到底吃不吃。 首先一个基本观点,就是离职了也没必要和老东家弄的苦...

2020阿里全球数学大赛:3万名高手、4道题、2天2夜未交卷

阿里巴巴全球数学竞赛( Alibaba Global Mathematics Competition)由马云发起,由中国科学技术协会、阿里巴巴基金会、阿里巴巴达摩院共同举办。大赛不设报名门槛,全世界爱好数学的人都可参与,不论是否出身数学专业、是否投身数学研究。 2020年阿里巴巴达摩院邀请北京大学、剑桥大学、浙江大学等高校的顶尖数学教师组建了出题组。中科院院士、美国艺术与科学院院士、北京国际数学...

男生更看重女生的身材脸蛋,还是思想?

往往,我们看不进去大段大段的逻辑。深刻的哲理,往往短而精悍,一阵见血。问:产品经理挺漂亮的,有点心动,但不知道合不合得来。男生更看重女生的身材脸蛋,还是...

为什么程序员做外包会被瞧不起?

二哥,有个事想询问下您的意见,您觉得应届生值得去外包吗?公司虽然挺大的,中xx,但待遇感觉挺低,马上要报到,挺纠结的。

当HR压你价,说你只值7K,你该怎么回答?

当HR压你价,说你只值7K时,你可以流畅地回答,记住,是流畅,不能犹豫。 礼貌地说:“7K是吗?了解了。嗯~其实我对贵司的面试官印象很好。只不过,现在我的手头上已经有一份11K的offer。来面试,主要也是自己对贵司挺有兴趣的,所以过来看看……”(未完) 这段话主要是陪HR互诈的同时,从公司兴趣,公司职员印象上,都给予对方正面的肯定,既能提升HR的好感度,又能让谈判气氛融洽,为后面的发挥留足空间。...

面试:第十六章:Java中级开发(16k)

HashMap底层实现原理,红黑树,B+树,B树的结构原理 Spring的AOP和IOC是什么?它们常见的使用场景有哪些?Spring事务,事务的属性,传播行为,数据库隔离级别 Spring和SpringMVC,MyBatis以及SpringBoot的注解分别有哪些?SpringMVC的工作原理,SpringBoot框架的优点,MyBatis框架的优点 SpringCould组件有哪些,他们...

面试阿里p7,被按在地上摩擦,鬼知道我经历了什么?

面试阿里p7被问到的问题(当时我只知道第一个):@Conditional是做什么的?@Conditional多个条件是什么逻辑关系?条件判断在什么时候执...

你期望月薪4万,出门右拐,不送,这几个点,你也就是个初级的水平

先来看几个问题通过注解的方式注入依赖对象,介绍一下你知道的几种方式@Autowired和@Resource有何区别说一下@Autowired查找候选者的...

面试了一个 31 岁程序员,让我有所触动,30岁以上的程序员该何去何从?

最近面试了一个31岁8年经验的程序猿,让我有点感慨,大龄程序猿该何去何从。

大三实习生,字节跳动面经分享,已拿Offer

说实话,自己的算法,我一个不会,太难了吧

程序员垃圾简历长什么样?

已经连续五年参加大厂校招、社招的技术面试工作,简历看的不下于万份 这篇文章会用实例告诉你,什么是差的程序员简历! 疫情快要结束了,各个公司也都开始春招了,作为即将红遍大江南北的新晋UP主,那当然要为小伙伴们做点事(手动狗头)。 就在公众号里公开征简历,义务帮大家看,并一一点评。《启舰:春招在即,义务帮大家看看简历吧》 一石激起千层浪,三天收到两百多封简历。 花光了两个星期的所有空闲时...

《Oracle Java SE编程自学与面试指南》最佳学习路线图2020年最新版(进大厂必备)

正确选择比瞎努力更重要!

《Oracle Java SE编程自学与面试指南》最佳学习路线图(2020最新版)

正确选择比瞎努力更重要!

字节跳动面试官竟然问了我JDBC?

轻松等回家通知

面试官:你连SSO都不懂,就别来面试了

大厂竟然要考我SSO,卧槽。

终于,月薪过5万了!

来看几个问题想不想月薪超过5万?想不想进入公司架构组?想不想成为项目组的负责人?想不想成为spring的高手,超越99%的对手?那么本文内容是你必须要掌握的。本文主要详解bean的生命...

自从喜欢上了B站这12个UP主,我越来越觉得自己是个废柴了!

不怕告诉你,我自从喜欢上了这12个UP主,哔哩哔哩成为了我手机上最耗电的软件,几乎每天都会看,可是吧,看的越多,我就越觉得自己是个废柴,唉,老天不公啊,不信你看看…… 间接性踌躇满志,持续性混吃等死,都是因为你们……但是,自己的学习力在慢慢变强,这是不容忽视的,推荐给你们! 都说B站是个宝,可是有人不会挖啊,没事,今天咱挖好的送你一箩筐,首先啊,我在B站上最喜欢看这个家伙的视频了,为啥 ,咱撇...

立即提问
相关内容推荐