• 締切済み

VB2010にて置換の方法

TextBox1に'[00:00:00]'や'[05:10:01]'等と入力されています。 (00には00~59までの数字が入力されいています。) これを全てNULLに置換したいのですが、どうやるんでしょうか? 下記の方法だと、一々00~59までコードを書かないといけません。 Dim a sa String Dim b sa String a=TextBox1.Text b=Replace(a, "[00:00:00]", "") TextBox2.Text=b

みんなの回答

  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.2

正規表現による置換。 TextBox2.Text = System.Text.RegularExpressions.Regex.Replace( _ TextBox1.Text, "\[.+?\]", "") 一例になれば。

回答No.1

こんにちは >これを全てNULLに置換したいのですが [00:00:00]'や'[05:10:01]を[ : : ]のようにすることでしょうか? 上記と仮定してのサンプルです。 'Replaceを使わない例 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim a As String Dim b As String a = TextBox1.Text b = "[ : : ]" TextBox2.Text = b End Sub 'Replaceを使った例 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim a As String Dim b As String If TextBox1.Text = "" Then Return End If a = TextBox1.Text b = a.Replace(a, "[ : : ]") TextBox2.Text = b End Sub

関連するQ&A

  • VB(2008)で文字列の置き換え

    Dim a As String Dim b As String a = TextBox1.Text b = a.Replace("hogehoge", "fuga") b = a.Replace("piyo","xyzzy") b = a.Replace("foo", "bar") Textbox2.Text= b のようにしているのですが、置き換えることができません。 初歩的な内容ですがどなたかよろしくお願いします。

  • 置換

    VB2010 7 Pro SP1 ファイルセレクタで、下記のフィルタをしていて、選んだファイルの名前を表示して、拡張子は外しています。 ofd1.Filter = "AA|*.aaa" file1 = Replace(ofd1.FileName, ".aaa", "") TextBox1.Text = file1 1つでは上記で出来たのですが、複数あると置換できません。 ofd1.Filter = "AA|*.aaa|BB|*.bbb|CC|*.ccc" file1 = Replace(ofd1.FileName, ".aaa", "") file1 = Replace(ofd1.FileName, ".bbb", "") file1 = Replace(ofd1.FileName, ".ccc", "") TextBox1.Text = file1 とすると最後のcccしか置換してくれず、.bbbのファイルを選んでも置換されません。 どの拡張子が来ても拡張子をなくして表示させたいのですが、Replaceで出来るでしょうか?

  • VB2005 初心者です。

    文書中の番号を振りなおしたいのですが、やり方がよく分かりません。 Dim a As String=textbox1.text Dim b As Integer=a.IndexOf("【作品番号") Dim c As String=a.Substring(b,5) Dim d As Integer=c.Length Do While b <> -1 b=a.Indexof("【作品番号",b+1) d=d+5 Loop Dim f As Integer=Cstr((d-5)/5) Dim g As Integer=0 g=g+1 For h As Integer=1 To f Dim i As String=textbox1.text.Replace("【作品番号","【作品番号" & h & "】") Next 最初のループまでで文章中に【作品番号*】がいくつあるかを調べて、(f回)その回数文だけまたループを回して番号を振りたいのですが、何もおきません。 本当に初心者なので、皆さんが見たらありえない構文かも知れませんが、ご教授願います。。。 ちなみに、作品番号は2桁3桁にもなることもあり、全角の数字にしたいのです。 よろしくお願い致します。

  • VB2008 正規表現でHTMLタグを"大文字→小文字"に置換したい

    Visual Basic 2008使用のプログラミング初心者です。 HTMLタグを大文字から小文字に置換するアプリケーションを作成中なのですが記述が間違っているのか、文字列を置換することが出来ません。 以下ソースです。     TextBox1.Text = Regex.Replace(TextBox1.Text, _       "<([\/]?)([\w]+)", _       "$1\L$2") http://dobon.net/vb/dotnet/string/regexreplace.html http://www37.atwiki.jp/emeditor/pages/50.html#id_6996d4b6 この二つのサイトを参考にやってみたのですが 置換を実行すると <BR> → \LBR> こうなってしまいます。 小文字に置換されるようにするにはどこを直せばよいのでしょうか。 教えてください、よろしくお願いします。

  • Excel2000でのVBAでの改行の置換方法

    Excel2000でVBAを利用しています。 Dim buf As string buf = "あいうえお" buf = Replace(buf, Chr(10), Chr(13) & Chr(10)) Excel2007では上記のプログラムで「あいうえお」の間に入っている、 改行コード\nを\r\nに置換することができたのですが、 Excel2000では上記のコマンドで置換ができませんでした。 なんでも良いので、何か助言頂けると嬉しいです。 答えでもなくても良いのでなんでも思いついた事をお願い致します。

  • 「ゞ」のみ置換するにはどうすればいいでしょう?

    「ゞ」を置換したいのに、 「ゞ」の次の文字まで置換されてしまう。 Sub test() Dim str会社名 As String str会社名 = "いすゞ自動車" Debug.Print Replace(str会社名, "ゞ", "ず") End Sub を実行すると 「ゞ自」が対象になってしまうのですが、 どうしてでしょうか? 「ゞ」は一文字ですよね? Replaceで「ゞ」のみ置換するにはどうすればいいでしょう?

  • テキストファイルを読み込み 偶数行の特定の文字を置換するには?

    お世話になります。 vb6なんですけどテキストファイルを読み込んで 偶数行のある文字を置換したいんですけど このサンプルをどういう風に改変して偶数行の文字列をある文字列に 置換するコードを書いてよいのかわかりません。 置換するのはreplace関数を使うと思うのですが。 教えて下さい。お願いします。 Dim n As Long, tmp As String n = FreeFile Open "D:\Test.txt" For Input As #n Line Input #n, tmp Close #n

  • VBアプリでExcelファイル内の文字が置換された事を確認する方法

    環境:OS.Win2000、Excel2000VBA VBアプリでフォルダ、検索文字列、置換文字列を入力するとExcelファイ ルを探し出し、順に置換していく処理をしようと思っています。置換した ファイルの名前をリストにするため置換されたかどうか必要があります。 しかし.Replaceメソッドは置換に成功しても失敗してもTrueを返すとなっ ています。 そこで検索にヒットしたファイルを置換すればいいのではと思い以下のよ うにテストしてみました(この様な使い方をして良いのか解りませんが) Dim ChkVal As Boolean Dim a '検索 Set ret = xlBook.Application.Cells.Find(What:=Text1.Text, _ After:=xlApp.ActiveCell, _ LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False) a = ret.Value '!!!エラー発生ポイント 'Emptyかチェックする ChkVal = IsEmpty(a) If ChkVal <> True Then MsgBox "見つけた" Else MsgBox "なし" End If 動作結果 (1)テキストボックスに何も入力せず実行 ⇒ 正常に動作 (2)ファイル内に存在する文字列を入力して実行 ⇒ 正常に動作 (3)ファイル内に存在しない文字列を入力して実行 ⇒ 異常終了 (3)では「オブジェクト変数または With ブロック変数が設定されていませ ん(Error 91)」とでます。 そこで質問です。 1.置換されたか確認するには、どのような方法が適当か 2.動作結果の(2)ではエラーにならないのに(3)ではなぜエラーになるのか 3.検索⇒置換⇒置換されたファイルの一覧作成という流れを皆さんだったら どのような組み立てをするか 質問が複数になってしまいましたがよろしくお願いします。

  • データ中の文字列置換方法

    以下の様なデータがあり項目Aが’B01’の場合は★として置換し、’B01’以外はNULL値として置換するSQL(ORACLE)について教示お願い致します。 <データの内容> 項目A A00 A01 B01 C01 B01 D01 <出力結果>      ←NULL      ←NULL ★      ←NULL ★      ←NULL

  • VB2010 TextBoxの文字列に正しく入力されないのは何故ですか

    VB2010 TextBoxの文字列に正しく入力されないのは何故ですか? string型の変数に文字列を入れ、TextBox.Textに代入すると文字列の後ろが切れてしまう。 Dim st As String st="s01114DG000555<0?e09" TextBox.Text = st この場合、TextBox.Textには"s01114DG000555<0"となり、後ろの4文字が切れてしまっている。 ちなみに、 TextBox.Text = "s01114DG000555<0?e09" とすると、正常に全文字数が入る。 半角文字列の塊なのに、どうしてこのようなことが起きるのでしょうか? また、これの対応策は何ですか? 以上、よろしくお願いします。

専門家に質問してみよう