[已解决]BAT怎样批量删除指定行的指定字符之前、之间、之后的内容？ - BAT求助&讨论 -
批处理之家 批处理_BAT_CMD_DOS_VBS_Perl_Python_PowerShell - Powered by Discuz!
帖子103&积分139&技术2 &捐助0 &注册时间&
[已解决]BAT怎样批量删除指定行的指定字符之前、之间、之后的内容？
本帖最后由 xp3000 于
14:21 编辑
比如要处理1000个文本，在需要处理的目录建个批处理，运行后出现5个选项，
每个选项里面又有子选项，提示需要执行内容的所在行：
1：指定顺数单行操作
2：指定顺数多行操作
3：指定倒数单行操作
4：指定倒数多行操作
5：指定全部内容操作
如果是多行，比如顺数，有输入提示：请输入起始行数：和请输入结束行数：
比如倒数，有输入提示：请输入倒数起始行数：和请输入倒数结束行数：
可以在里面输入数字，回车进入下个窗口。
1：删除指定字符之前的内容
2：删除指定字符之间的内容
3：删除指定字符之后的内容
选定后回车进入下个窗口，在里面提示需要输入的内容，
并且可以在窗口用键盘打字输入需要处理的内容。
比如选择的是“删除指定字符之间的内容”，
进入子选项窗口后，提示：请输入起始内容：
用键盘打字或粘贴内容后回车，提示：请输入结束内容：
打字输入内容或粘贴内容后后回车执行
感谢给帖子标题标注[已解决]字样PB + 2
帖子103&积分139&技术2 &捐助0 &注册时间&
比如下面有个测试TXT,文本内容如下：&第一行& &测试内容&倒数第十行&&
&第二行& &测试内容&倒数第九行&&
&第三行& &测试内容&倒数第八行&&
&第四行& &测试内容&倒数第七行&&
&第五行& &测试内容&倒数第六行&&
&第六行& &测试内容&倒数第五行&&
&第七行& &测试内容&倒数第四行&&
&第八行& &测试内容&倒数第三行&&
&第九行& &测试内容&倒数第二行&&
&第十行& &测试内容&倒数第一行&&复制代码如果选定全部行，批量删除指定字符之间的内容
起始内容：&测试内容
结束内容：&&
得到的结果就是下面的
帖子481&积分2619&技术113 &捐助0 &注册时间&
看起来有点工作量啊，飘过。。。
初学BAT，非专业。代码不适当之处还望前辈们多多指点。在此表示感谢！
帖子2089&积分14202&技术663 &捐助0 &注册时间&
本帖最后由 apang 于
23:41 编辑
Dim strPrompt, Input
strPrompt = &1：指定顺数单行& & vbLf & &2：指定顺数多行& & vbLf & _
& && && && &&3：指定倒数单行& & vbLf & &4：指定倒数多行& & vbLf & _
& && && && &&5：删除指定内容& & vbLf & vbLf & &输入[1-5]&
Input = GetInput(strPrompt, &&, &1&, &[1-5]&)
Dim s, Pattern, a, b, s1, s2, ar, ss
If Input = &1& Then
& & strPrompt = &输入指定行：&
& & s = GetInput(strPrompt,&指定顺数单行&,&1&,&[1-9]\d*&)
& & Pattern = &((.*\n){& & s-1 & &}).*\n([\s\S]*)&
ElseIf Input = &2& Then
& & strPrompt = &输入起始行和结束行，空格隔开：&
& & s = GetInput(strPrompt,&指定顺数多行&,&1 2&,&[1-9]\d* +[1-9]\d*&)
& & a = Left(s, InStr(s, & &)-1)
& & b = Right(s, Len(s) - InStrRev(s, & &))
& & Pattern = &^((.*\n){& & a-1 & &})(.*\n){& & b-a+1 & &}([\s\S]*)$&
ElseIf Input = &3& Then
& & strPrompt = &输入指定行：&
& & s = GetInput(strPrompt,&指定倒数单行&,&1&,&[1-9]\d*&)
& & Pattern = &^([\s\S]*?)(.*\n)((.*\n){& & s-1 & &})$&
ElseIf Input = &4& Then
& & strPrompt = &输入起始行和结束行，空格隔开：&
& & s = GetInput(strPrompt,&指定倒数多行&,&1 2&,&[1-9]\d* +[1-9]\d*&)
& & a = Left(s, InStr(s, & &)-1)
& & b = Right(s, Len(s) - InStrRev(s, & &))
& & Pattern = &^([\s\S]*?)(.*\n){& & b-a+1 & &}((.*\n){& & a-1 & &})$&
Else
& & strPrompt = &1：删除指定字符之前的内容& & vbLf & _
& && && && && & &2：删除指定字符之间的内容& & vbLf & _
& && && && && & &3：删除指定字符之后的内容& & vbLf & vbLf & &输入[1-3]&
& & ar = Array(&\&,&.&,&*&,&?&,&$&,&(&,&)&,&^&,&|&,&+&,&{&,&[&)
& & ss = GetInput(strPrompt,&删除指定内容&,&1&,&[1-3]&)
& & If ss = &1& Then
& && &&&strPrompt = &输入指定字符：& & vbLf & vbLf & _
& && && && && && &&&&最大匹配不删除指定字符&
& && &&&s = GetInput(strPrompt,&删除指定字符之前的内容&,&A&,&.+&)
& && &&&For i = 0 to UBound(ar)
& && && && &s = Replace(s, ar(i), &\& & ar(i))
& && &&&Next
& && &&&Pattern = &[\s\S]*(& & s & &)&
& & ElseIf ss = &2& Then
& && &&&strPrompt = &输入起始字符：& & vbLf & vbLf & _
& && && && && && &&&&最小匹配不删除起始、结束字符&
& && &&&s1 = GetInput(strPrompt,&删除指定字符之间的内容&,&A&,&.+&)
& && &&&strPrompt = &输入结束字符：&
& && &&&s2 = GetInput(strPrompt,&删除指定字符之间的内容&,&B&,&.+&)
& && &&&For i = 0 to UBound(ar)
& && && && &s1 = Replace(s1, ar(i), &\& & ar(i))
& && && && &s2 = Replace(s2, ar(i), &\& & ar(i))
& && &&&Next
& && &&&Pattern = &(& & s1 & &)[\s\S]*?(& & s2 & &)&
& & Else
& && &&&strPrompt = &输入指定字符：& & vbLf & vbLf & _
& && && && && && &&&&最大匹配不删除指定字符&
& && &&&s = GetInput(strPrompt,&删除指定字符之后的内容&,&A&,&.+&)
& && &&&For i = 0 to UBound(ar)
& && && && &s = Replace(s, ar(i), &\& & ar(i))
& && &&&Next
& && &&&Pattern = &(& & s & &)[\s\S]*&
& & End If
End If
Dim fso, file, txt
Set fso = CreateObject(&Scripting.FileSystemObject&)
For Each file in fso.GetFolder(&.&).Files
& & If LCase(Right(file.Name,4)) = &.txt& Then
& && &&&txt = fso.OpenTextFile(file, 1).ReadAll
& && &&&If Right(txt,2) && vbCrLf Then txt = txt & vbCrLf
& && &&&fso.OpenTextFile(file, 2).Write RegEx(txt, Pattern)
& & End If
Next
MsgBox &OK&
Function RegEx(str, Pattern)
& & Dim re
& & Set re = New RegExp
& & re.Pattern = Pattern
& & If Input = &5& Then
& && &&&re.IgnoreCase = True
& && &&&If ss = &2& Then
& && && && &re.Global = True
& && && && &RegEx = re.Replace(str,&$1$2&)
& && &&&Else RegEx = re.Replace(str,&$1&)
& && &&&End If
& & ElseIf Input = &2& Then RegEx = re.Replace(str,&$1$4&)
& & Else RegEx = re.Replace(str,&$1$3&)
& & End If
End Function
Function GetInput(strPrompt, strTitle, strDefault, strPattern)
& & Dim Input1
& & Do while true
& && &&&Input1 = InputBox(strPrompt, strTitle, strDefault)
& && &&&If IsEmpty(Input1) Then WScript.Quit
& && &&&If IsValidInput(CStr(Input1),strPattern) Then Exit Do
& & Loop
& & GetInput = Input1
End Function
Function IsValidInput(strInput, Pattern)
& & Dim re
& & Set re = New RegExp
& & re.Pattern = &^& & Pattern & &$&
& & If re.Test(strInput) Then IsValidInput = true
End function复制代码
谢谢，VBS后缀能用，这个基本解决了别人以后 ...技术 + 1
帖子103&积分139&技术2 &捐助0 &注册时间&
谢谢，VBS后缀能用，这个基本解决了别人以后所有提出的类似问题
& & 如果要保留输入的内容，删除字符之间的，需要修改哪里？
比如删除指定字符之间的内容：
起始内容：行& &
结束内容：&倒数第
得到的是下面的结果：
&第一行& &&倒数第十行&&
&第二行& &&倒数第九行&&
&第三行& &&倒数第八行&&
&第四行& &&倒数第七行&&
&第五行& &&倒数第六行&&
&第六行& &&倒数第五行&&
&第七行& &&倒数第四行&&
&第八行& &&倒数第三行&&
&第九行& &&倒数第二行&&
&第十行& &&倒数第一行&&
帖子2089&积分14202&技术663 &捐助0 &注册时间&
Pattern = &(& & s1 & &)[\s\S]*?(& & s2 & &)&
RegEx = re.Replace(str,&$1$2&)
谢谢技术 + 1
帖子103&积分139&技术2 &捐助0 &注册时间&
本帖最后由 xp3000 于
09:53 编辑
& & 发现个问题，指定行后面的内容成了删除指定行。如果解决就完美了。
删除指定行的指定内容，其他行没有选定就不会删除
帖子2089&积分14202&技术663 &捐助0 &注册时间&
& & 4#改了，想100%通用是不可能的，试一下。
帖子103&积分139&技术2 &捐助0 &注册时间&
本帖最后由 xp3000 于
10:24 编辑
需要这个批处理的目的是因为有一大堆电子书，有的有上千章，排版不一，
有的有两个标题，而且有的章数没用括弧，有的又用了，而且有的首行有空行，
所以需要一个锁定行数操作的功能，需要删除的内容在这个锁定行内操作，
…… 这些省略号后面的都是小说内容，如果选择删除选定内容之后的
请输入删除指定字符之后的内容： 新书推荐
就会把重要的小说内容删除掉，而且小说结尾还有求票，感悟等，行数不统一，
如果删除一整行行，就没有文章标题了，所以需要一个只在指定行删除指定字符的批处理。
第一卷 孤岛求生记 【内容简介】：……
【第一章】 勇斗魔狼 新书推荐《一剑傲九天》类型：玄幻·异界,作者：安简兮
第二章 荒岛大采购 新书推荐《鬼眼契约》 类型：都市·异能，作者：枪客
【第三章】 救了一个狐狸精 新书推荐《武界传说》类型：武侠，作者：天堂的森林
【第三章 】救了一个狐狸精
帖子2089&积分14202&技术663 &捐助0 &注册时间&
本帖最后由 apang 于
00:13 编辑
原来是指定行的指定字符，不是整篇文档的。
再仔细看，主选项5个，子选项3个，相当于把15个不同的代码整合在一起。仅输入信息的显示、判断就占代码相当大的部分
个人认为这样的整合即使能实现，代码也很冗长，通用性不一定高，还不如单个功能的代码实用
帖子103&积分139&技术2 &捐助0 &注册时间&
& & 确实比较复杂，弄成功了就通用了，看来是了不能实现了.
能不能把这个想法做成两个VBS实现？要删除包括输入字符的。
第一个功能是指定行的指定字符删除，内容是
1：指定顺数单行操作
2：指定顺数多行操作
1和2的子窗口都能进入下面的功能：
1：删除指定字符之前的内容
2：删除指定字符之间的内容
3：删除指定字符之后的内容
第二个功能是倒数指定行的指定字符删除，内容是
1：指定倒数单行操作
2：指定倒数多行操作
1和2的子窗口也能进入下面的功能：
1：删除指定字符之前的内容
2：删除指定字符之间的内容
3：删除指定字符之后的内容
帖子2089&积分14202&技术663 &捐助0 &注册时间&
xp3000 Dim strPrompt, strPrompt1, Input, strTitle
Dim s, startLine, endLine, s1, s2, i, ar, Pattern
strPrompt = &1：指定顺数单行操作& & vbLf & _
& && && && &&2：指定顺数多行操作& & vbLf & vbLf & &输入[1-2]&
Input = GetInput(strPrompt, &&, &1&, &[1-2]&)
strPrompt = &1：删除指定字符之前的内容& & vbLf & _
& && && && &&2：删除指定字符之间的内容& & vbLf & _
& && && && &&3：删除指定字符之后的内容& & vbLf & vbLf & _
& && && && &&最大匹配不删除指定字符& & vbLf & &输入[1-3]&
If Input = &1& Then
& & strTitle = &指定顺数单行操作&
& & s = GetInput(&输入指定行：&, strTitle, &1&, &[1-9]\d*&)
& & startLine = s : endLine = s
& & s = GetInput(strPrompt, strTitle, &1&, &[1-3]&)
Else
& & strTitle = &指定顺数多行操作&
& & strPrompt1 = &输入起始行、结束行& & vbLf & vbLf & _
& && && && && &&&&空格隔开：&
& & s = GetInput(strPrompt1,strTitle,&1 2&,&[1-9]\d* [1-9]\d*&)
& & startLine = Split(s, & &)(0)
& & endLine = Split(s, & &)(1)
& & s = GetInput(strPrompt, strTitle, &1&, &[1-3]&)
End If
ar = Array(&\&,&.&,&*&,&?&,&$&,&(&,&)&,&^&,&|&,&+&,&{&,&[&)
If s = &1& Then
& & strPrompt = &删除指定字符之前的内容& & vbLf & vbLf & _
& && && && && & &输入指定字符：&
& & s1 = GetInput(strPrompt, strTitle, &A&, &.+&)
& & For i = 0 to UBound(ar)
& && &&&s1 = Replace(s1, ar(i), &\& & ar(i))
& & Next
& & Pattern = &^.*(& & s1 & &)(.*)$&
ElseIf s = &2& Then
& & strPrompt = &删除指定字符之间的内容& & vbLf & vbLf & _
& && && && && & &输入起始字符：&
& & s1 = GetInput(strPrompt, strTitle, &A&, &.+&)
& & strPrompt = &删除指定字符之间的内容& & vbLf & vbLf & _
& && && && && & &输入结束字符：&
& & s2 = GetInput(strPrompt, strTitle, &B&, &.+&)
& & For i = 0 to UBound(ar)
& && &&&s1 = Replace(s1, ar(i), &\& & ar(i))
& && &&&s2 = Replace(s2, ar(i), &\& & ar(i))
& & Next
& & Pattern = &^(.*?& & s1 & &).*(& & s2 & &.*)$&
Else
& & strPrompt = &删除指定字符之后的内容& & vbLf & vbLf & _
& && && && && & &输入指定字符：&
& & s1 = GetInput(strPrompt, strTitle, &A&, &.+&)
& & For i = 0 to UBound(ar)
& && &&&s1 = Replace(s1, ar(i), &\& & ar(i))
& & Next
& & Pattern = &^(.*?)(& & s1 & &).*$&
End If
Dim fso, file, txt, arrTxt
Set fso = CreateObject(&Scripting.FileSystemObject&)
For Each file in fso.GetFolder(&.&).Files
& & If LCase(Right(file,4)) = &.txt& Then
& && &&&txt = fso.OpenTextFile(file, 1).ReadAll
& && &&&If Right(txt,2) && vbCrLf Then txt = txt & vbCrLf
& && &&&arrTxt = Split(txt, vbCrLf)
& && &&&If UBound(arrTxt) &= endLine - 1 Then
& && && && &For i = startLine -1 to endLine - 1
& && && && && & arrTxt(i) = RegEx(arrTxt(i))
& && && && &Next
& && &&&End If
& && &&&fso.OpenTextFile(file, 2).Write Join(arrTxt,vbCrLf)
& & End If
Next
MsgBox &OK&
Function RegEx(str)
& & Dim re
& & Set re = New RegExp
& & re.Pattern = Pattern
& & re.IgnoreCase = True
& & re.Global = True
& & RegEx = re.Replace(str,&$1$2&)
End Function
Function GetInput(strPrompt, strTitle, strDefault, strPattern)
& & Dim Input1
& & Do while true
& && &&&Input1 = InputBox(strPrompt, strTitle, strDefault)
& && &&&If IsEmpty(Input1) Then WScript.Quit
& && &&&If IsValidInput(CStr(Input1),strPattern) Then Exit Do
& & Loop
& & GetInput = Input1
End Function
Function IsValidInput(strInput, strPattern)
& & Dim re
& & Set re = New RegExp
& & re.Pattern = &^& & strPattern & &$&
& & If re.Test(strInput) Then IsValidInput = true
End function复制代码倒数：将代码中的“顺数”改成“倒数”，然后把上面69-71行的for循环这样改：& && && && &For i = startLine to endLine
& && && && && & j = UBound(arrTxt) - i
& && && && && & If j&=0 Then arrTxt(j) = RegEx(arrTxt(j))
& && && && &Next复制代码
乐于助人技术 + 1
乐于助人技术 + 1
帖子103&积分139&技术2 &捐助0 &注册时间&
本帖最后由 xp3000 于
17:18 编辑
谢谢，能用，如果有空把4楼整理下，需要顺数和倒数的两个vbs代码，弄成输入的字符也删除的。
帖子65&积分87&技术1 &捐助0 &注册时间&
楼主;你要继续努力啊！你是论坛的希望啊
[通过 QQ、MSN 分享给朋友]查看: 6380|回复: 13
批量删除txt每行里某个字符后的所有字符
阅读权限20
本帖最后由 旧时光的小夏天 于
18:58 编辑
期望' 114444', N' ', N''N' ', N'', N'13weqasdS6D874A6SDAS6D54Q6,K,45,K,4,,8K4,64K,,K1)
阿萨德' 154444', M' ', N''N' ', N'', N''N''N'', N'0', N' 15:06:41', 5257141)
我想批量删除 后面的所有字符只保留
阿萨德' 154444期望' 114444
txt 文档里的，文档很大， 只能批量删除，一个个删除会疯的
有什么办法可以批量删除吗？
/s/1mgLnnOO
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限10
本帖最后由 lroins 于
17:18 编辑
123.jpg (45.79 KB, 下载次数: 11)
17:18 上传
2.jpg (54.84 KB, 下载次数: 6)
17:18 上传
/s/1mgLnnOO
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限20
DreamEdit 就可以做到。很多文本文件都可以做到你要求的。连自带的notepad也可以。启用替换功能，把4444替换为无 或空格之类的
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限30
记事本，就可以做到吧，查找，替换
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限20
我不想删掉4444，而是删掉4444之后的字符
这些字符不是同一个字符，都是随机的
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限20
本帖最后由 旧时光的小夏天 于
18:48 编辑
/s/1mgLnnOO
这个 我试用了下 我的txt 文档，一个有 30MB大，导入的太慢了，有一百多个20+MB的txt 文档都需要批量替换， 一个文档已经导入了5分钟了，还没导入完··。。。请问能修改下，就是前面的汉子后加----隔开后面的数字么。
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限10
这个 我试用了下 我的txt 文档，一个有 30MB大，导入的太慢了，有一百多个20+MB的txt 文档都需要批量替换 ...
不好意思，帮不了你了。
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限20
不好意思，帮不了你了。
是因为txt、文档太大的原因吗？
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限10
是因为txt、文档太大的原因吗？
嗯，太大了，没尝试过载入那么大的文件，你这应该是库的文件吧
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
阅读权限20
嗯，太大了，没尝试过载入那么大的文件，你这应该是库的文件吧
是的，数据库的文件，导出来了，变成txt 的了。我用表格的方式可以完成修改，但是因为数据太多，几百个，一个个弄太麻烦了。
发帖求助前要善用【】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【热心】和【CB】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
免责声明：吾爱破解所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。
( 京ICP备号 | 京公网安备 87号 )
Powered by Discuz! X3.2
Comsenz Inc.查看: 317|回复: 3
删除txt文档指定字符后数据
阅读权限140
在线时间 小时
签到天数：1 天结帖率： (23/27)
有个txt文档，每行都有“----”这个字符，现在想删除每行“----”这个后边的字，每行都不一样，求代码
回答提醒：如果本帖被关闭无法回复，您有更好的答案帮助楼主解决，请发表至
可获得加分喔。友情提醒：本版被采纳的主题可在
帖子申请荣誉值，获得 1点 荣誉值,荣誉值可兑换终身vip用户组哦。快捷通道： →
阅读权限120
在线时间 小时
签到天数: 2 天结帖率： (19/19)
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 文本, 文本型
.局部变量 分割, 文本型, , &0&
.局部变量 n, 整数型
.局部变量 二次, 文本型, , &0&
.局部变量 结果, 文本型
文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\1.txt”))
分割 ＝ 分割文本 (文本, #换行符, )
.计次循环首 (取数组成员数 (分割), n)
& & 二次 ＝ 分割文本 (分割 [n], “----”, )
& & 结果 ＝ 结果 ＋ 子文本替换 (分割 [n], 二次 [2], “”, , , 真) ＋ #换行符
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (结果))
复制代码
热心帮助他人，荣誉+1，希望继续努力(*^__^*) 嘻嘻!
您可以选择打赏方式支持他
阅读权限165
在线时间 小时
签到天数: 2 天结帖率： (6/6)
用正则&&----[\u4e00-\u9fa5]+
然后正则.替换(&----&)
补充内容 ( 19:20):
----.*?\s& &&&有可能不一定全是汉字,改成这个就可以
补充内容 ( 19:20):
改成后面那个了替换那里还要加个换行符
您可以选择打赏方式支持他
阅读权限165
在线时间 小时
签到天数: 2 天结帖率： (3/3)
txt文档发上来
您可以选择打赏方式支持他
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论，本站内容均为会员发表，并不代表精易立场!
揭阳精易科技有限公司申明:我公司所有的培训课程版权归精易所有，任何人以任何方式翻录、盗版、破解本站培训课程，我们必将通过法律途径解决！
公司简介：揭阳市揭东区精易科技有限公司致力于易语言教学培训/易语言学习交流社区的建设与软件开发，多年来为中小企业编写过许许多多各式软件，并把多年积累的开发经验逐步录制成视频课程供学员学习，让学员全面系统化学习易语言编程，少走弯路，减少对相关技术的研究与摸索时间，从而加快了学习进度！
防范网络诈骗，远离网络犯罪
违法和不良信息举报电话，企业QQ： ，邮箱：
Powered by
粤公网安备 25}