人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VisualBasic2008ExpressEditionでプログラムしています。

以下のような処理をしてくれるサブルーチンを作りたいです。

1. strGivenの中に、strFindに格納されているのと同じ文字列が存在するかどうか、strGivenの先頭から順に探す。
2. もし存在しなかったら、strGivenに"NotExist"を代入する。
3. もし発見されたら、strGivenの値のうち、strFindに格納されている文字列そのものを含む、その部分から見て先頭側を、削除する。

つきましては、コードをご教示ください。

●質問者: jjkkjpjjkkjp
●カテゴリ:コンピュータ
✍キーワード:コード サブルーチン プログラム 存在 文字列
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● rsc
●100ポイント ベストアンサー

Form1.vb[デザイン]に適当に、Button1とTextBox1とTextBox2とTextBox3を作って、下記コードで動くようですが参考になれば幸いです。strFindごと削除したい場合は、

strResultOfFind = Mid(strGiven, n + Len(strFind))

に変えて下さい。

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim strGiven As String, strFind As String, strResultOfFind As String = ""

strGiven = TextBox1.Text

strFind = TextBox2.Text

test(strGiven, strFind, strResultOfFind)

TextBox3.Text = strResultOfFind

End Sub

Private Sub test(ByVal strGiven As String, ByVal strFind As String, ByRef strResultOfFind As String)

Dim n As Integer = InStr(strGiven, strFind)

If n = 0 Then

strResultOfFind = "NotExist"

Else

strResultOfFind = Mid(strGiven, n)

End If

End Sub

End Class

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ