[VisualBasic2008Express]


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
)

よろしくお願い申し上げます。

回答の条件
  • 1人2回まで
  • 登録:2010/01/21 12:46:59
  • 終了:2010/01/27 14:35:27

ベストアンサー

id:frkw2004 No.1

ふるるP回答回数192ベストアンサー獲得回数212010/01/21 15:26:18

ポイント60pt
    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

ですかね。

id:jjkkjpvb2008

ありがとうございます!

2010/01/27 14:35:16

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません