VBScriptで文字列置換

質問

VBScriptで文字列置換をさせたいので
コーディングをご教授ください。

-----------------------------------------------
置換前
あいうえお@,@aaaaaaaa@,@5648941248@
かきくけこさし@,@bbb@,@15249511456664654654@

置換後
あいうえお@,@aaaaaaaa@,@111@
かきくけこさし@,@bbb@,@111@
-----------------------------------------------

最後の@で囲まれた部分の数字を全て111にしたいのです。

回答No.4

KenKen_SP

' べたべたなコーディングですが・・・
' WEB からコピペする場合、インデントに全角SPを使っているので
' タブに直して下さい

MsgBox MyFunc("あいうえお@,@aaaaaaaa@,@5648941248@")
MsgBox MyFunc("かきくけこさし@,@bbb@,@15249511456664654654@")

Function MyFunc(Src)
　　Tmp = Split(Src,",")
　　If Ubound(Tmp)=2 Then
　　　　MyFunc = Tmp(0) & "," & Tmp(1) & ",@111@"
　　Else
　　　　MyFunc = Src
　　End If
End Function

回答No.3

ham_kamo

No.2です。ちょっと無駄な部分があったので修正しました。

str1="あいうえお@,@aaaaaaaa@,@5648941248@"
str2="かきくけこさし@,@bbb@,@15249511456664654654@"

Set re = new regexp
re.Pattern="(^.*@)([^@]*)(@$)"
re.Global=True
replacement="$1111$3"
MsgBox(re.Replace(str1,replacement) & vbCr & re.Replace(str2,replacement))
set re=Nothing

回答No.2

ham_kamo

正規表現を使ってみました。

str1="あいうえお@,@aaaaaaaa@,@5648941248@"
str2="かきくけこさし@,@bbb@,@15249511456664654654@"

Set re = new regexp
re.Pattern="(^.*)(@)([^@]*)(@$)"
re.Global=True
replacement="$1$2111$4"
MsgBox(re.Replace(str1,replacement) & vbCr & re.Replace(str2,replacement))
set re=Nothing

回答No.1

ppg-2

int1=InStr(1,linedata,",")
int2=InStr(int1+1,linedata,",")
targetstr=left(linedata,int2) & "@111@"

べたなコーディングかもしれませんねえ・・・