'========================================================================
'関数名：applateSavereMoteFile
'機能：リモート画像を交換して保存します
'Arguments: ConStr----------------------------------------------------------------------------------------------------------------------
'パラメーター：savetf ------ファイルを保存するかどうか、falseは保存しません、true save
'パラメーター：Tisturl --------現在のWebアドレス
'========================================================================
functionReplaceSavereMotefile（Connt、Strinstalldir、Strchanneldir、Savetf、Tisturl）
ifconstr = "$ false $" orconst = "" orstrchanneldir = "" then
applateSavereMoteFile = const
exitFunction
endif
dimtempstr、tempstr2、tempstr3、re、matches、match、temppi、temparray、temparray2
setre = newRegexp
re.ignorecase = true
re.global = true
re.pattern = "<img。+？[^/>]>"
setMatches = re.execute（contr）
foreachmatchinmatches
iftempstr <> "" then
tempstr = tempstr＆ "$ array $"＆match.value
それ以外
tempstr = match.value
endif
次
iftempstr <> "" then
Temparray = split（tempstr、 "$ array $"）
tempstr = ""
fortempi = 0toubound（temparray）
re.pattern = "src/s*=/s*。+？/。
setMatches = re.execute（temparray（tempi））
foreachmatchinmatches
iftempstr <> "" then
tempstr = tempstr＆ "$ array $"＆match.value
それ以外
tempstr = match.value
endif
次
次
endif
iftempstr <> "" then