VB2008(VB.NET)でプログラムしています。
あるstring変数(A)に格納されている文字列に対して、別のstring変数(B)に格納されている文字列を、前方から検索して、文字列(A)から、その文字列(B)を含む部分を、削除する。なおかつ、もし文字列(A)の中に文字列(B)が発見されたら、string変数(C)に"Exist"を代入し、発見されなかったら、"NotExist"を代入する、というコードを、エレガ~ントに書いていただけませんか?
次のように始めたいです。
Private Sub DelFront (
ByRef strA As String,
ByVal strB As String,
ByRef strC As String
)
よろしくお願い申し上げます。
Private Sub DelFront(ByRef strA As String, ByVal strB As String, ByRef strC As String) If InStr(strA, strB) > 0 Then strA = Replace(strA, strB, "") strC = "Exists" Else strC = "NotExists" End If End Sub
ですかね。
ありがとうございます!