|
谁能帮我写个代码:
多个相同字符串中间内容提取出来并替换为空格代码
例子:
$1 = 123321123
$2 = 122233215
$3 = 这里即是要提取出来的内容,并用空格代替,这里要提取的内容会不一样
有多个要提取出来的内容不单单是提取出来一个
#include<string.au3>
#include<file.au3>
$txt = @ScriptDir & "\" & "11.txt"
$datt = FileRead($txt )
$a = "〖CS%0,100,0,0〗"
$b = "〖CS〗"
$jsl ="yyyy" ;这里是结尾的地方出现这几个字母以后就不用提了
Local $amount1
$start1 = StringInStr($datt, $a, 0, 1)
If $start1 > 0 Then
$start1 = $start1 + StringLen($a);查找$a的结束位置
Else
MsgBox(64, "提示", "没有找到 "&'"'&$a&'"'&" 相同的字符" )
EndIf
$end1 = StringInStr($datt, $b, 0, 1, $start1);从$a的结束位置开始查找$b的位置
If $end1 > 0 Then
$amount1 = $end1 - $start1;获得中间部分字符的数量
$results1= StringMid($datt, $start1, $amount1);返回结果
FileWrite(@ScriptDir & "\" & "file.txt", $results1&" ")
Else
MsgBox(64, "提示", "没有找到 "&'"'&$b&'"'&" 相同的字符" )
EndIf
这是根据别的大神内容修改的,但是只能提取第一个内容,后面的不提取了,帮我写个能提取到结尾的地方 谢谢 ,有奖 |
|