请教文本替换的问题(可能需要正则？) 已解决

haijie1223

回复 15# afan


    我猜楼主的意思是这样的：
原字符串：

Local $Text = "asasaf 111.111.111.1aaa" & @CRLF & _
                "asasaf 111.111.111.1" & @CRLF & _
                "asasaf 111.111.111.11" & @CRLF & _
                "asasaf 111.111.111.11aaa" & @CRLF & _
                "asasaf 111.111.111.111" & @CRLF & _
                "asasaf 111.111.111.111aaaa"

目标字符串：

asasaf 111.111.111.1 [地址11111111111]aaa
asasaf 111.111.111.1 [地址11111111111]
asasaf 111.111.111.11 [地址22222222222222222222]
asasaf 111.111.111.11 [地址22222222222222222222]aaa
asasaf 111.111.111.111 [地址33333]
asasaf 111.111.111.111 [地址33333]aaaa

afan

回复 16# haijie1223


    被你这么一说  问题瞬间明朗了
不是源字符串丢\D的问题，因为\D可以拿@CRLF的@CR抵掉，因此不会出错，楼主没察觉而已…

关键在于：  替换表达式里面含有“.”这个元字符…

haijie1223

回复 17# afan


    这个问题我也一直不是很明白，正则替换表达式中的"."，是正则中的匹配所有字符的意义，还是就表示"."本身。

afan

回复  afan


    这个问题我也一直不是很明白，正则替换表达式中的"."，是正则中的匹配所有字符的意义 ...
haijie1223 发表于 2016-4-12 17:44

    “.”既然是元字符，当然不是“.”其本身字符

haijie1223

回复 19# afan


    那要用\.进行转义喽

afan

回复  afan


    那要用\.进行转义喽
haijie1223 发表于 2016-4-12 17:48

    是的  楼主在5#想到了这一点  但未停留…

zghwelcome

两位一问一答，楼主始终不现身说法啊

haijie1223

回复 21# afan


   

#include <Array.au3>
Global $Text = "asasaf 111.111.111.1aaa" & @CRLF & _
                "asasaf 111.111.111.1" & @CRLF & _
                "asasaf 111.111.111.11" & @CRLF & _
                "asasaf 111.111.111.11aaa" & @CRLF & _
                "asasaf 111.111.111.111" & @CRLF & _
                "asasaf 111.111.111.111aaaa"

Global $a_IP_Add[3][2] = [["111\.111\.111\.1", "地址11111111111"], _
                ["111\.111\.111\.11", "地址22222222222222222222"], _
                ["111\.111\.111\.111", "地址33333"]]

For $i = 0 To UBound($a_IP_Add) - 1
        $Text = StringRegExpReplace($Text, $a_IP_Add[$i][0] & "(\D)", $a_IP_Add[$i][0] & " [" & $a_IP_Add[$i][1] & "]\1")
Next
MsgBox(0, "替换", $Text)

haijie1223

回复 21# afan


    多谢A版指点，这回记住了。

afan

回复  afan
haijie1223 发表于 2016-4-12 17:59

    你这个有些麻烦，每个都要\转义一下； 而且，如果诸如以“111.111.111.111”作为整段结尾则不会替换最后的。

Global $Text = "asasaf 111.111.111.1aaa" & @CRLF & _
                "asasaf 111.111.111.1" & @CRLF & _
                "asasaf 111.111.111.11" & @CRLF & _
                "asasaf 111.111.111.11aaa" & @CRLF & _
                "asasaf 111.111.111.111" & @CRLF & _
                "asasaf 111.111.111.111aaaa" & @CRLF & _
                "asasaf 111.111.111.111"

afan

回复 24# haijie1223


    试试这样

#include <Array.au3>
Global $Text = "asasaf 111.111.111.1aaa" & @CRLF & _
                "asasaf 111.111.111.1" & @CRLF & _
                "asasaf 111.111.111.11" & @CRLF & _
                "asasaf 111.111.111.11aaa" & @CRLF & _
                "asasaf 111.111.111.111" & @CRLF & _
                "asasaf 111.111.111.111aaaa" & @CRLF & _
                "asasaf 111.111.111.111"

Global $a_IP_Add[3][2] = [["111.111.111.1", "地址11111111111"], _
                          ["111.111.111.11", "地址22222222222222222222"], _
                          ["111.111.111.111", "地址33333"]]

For $i = 0 To UBound($a_IP_Add) - 1
        $Text = StringRegExpReplace($Text, '\b\Q' & $a_IP_Add[$i][0] & '\E(?=\D|$)', $a_IP_Add[$i][0] & ' [' & $a_IP_Add[$i][1] & ']')
Next
MsgBox(0, "替换", $Text)

haijie1223

回复 26# afan


    感谢A版，又赚到了。。。

afan

回复  afan


    感谢A版，又赚到了。。。
haijie1223 发表于 2016-4-12 18:23

    感谢发哥  偶也赚了…

afan

两位一问一答，楼主始终不现身说法啊
zghwelcome 发表于 2016-4-12 17:56

    因为楼主自我解决就完事了   放心  如果发现问题会回访的  

haijie1223

回复 26# afan


    A版，请教一下，\Q与\E中间的部分，可以是"普通字符串",也可以是"纯元字符",也可以是"元字符和普通字符的混合字符串"，是不是这样？