 関数・メソッド・変数関係のメニュー |
| ４．Microsoft.VisualBasic 名前空間の主要文字列関数の紹介(11_Fnc_04) (旧、SampleNo.004) |
| 下記プログラムコードに関する補足・注意事項 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option ：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他 ：Button1 ：正しくは、Microsoft.VisualBasic.Strings.Asc のように書きますが、名前空間とクラス名が省略可能なので、ここでは省略して記入しております。(注意！ System.String クラスの同名のメソッドとは別物で、引数・使用方法が異なります。) このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい) |
 １．Asc/AscW メソッドの使用例(文字に対応する文字コードを表す Integer 値を返す) |
| [名前空間: Microsoft.VisualBasic] Asc メソッド 文字に対応する文字コードを表す Integer 値を返します。 AscW メソッド 文字に対応する Unicode コードポイントを返します。 構文 Asc/W(任意の有効な Char 型または String 型の式) Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click TextBox1.Text = "01．Asc メソッド 文字に対応する文字コードを表す Integer 値を返します。" & vbCrLf TextBox1.Text &= " AscW メソッド 文字に対応する Unicode コードポイントを返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("Asc(""A"") = {0}", Asc("A")) & vbCrLf TextBox1.Text &= String.Format("AscW(""a"") = {0}", AscW("a")) End Sub 上記実行結果 01．Asc メソッド 文字に対応する文字コードを表す Integer 値を返します。 AscW メソッド 文字に対応する Unicode コードポイントを返します。 Asc("A") = 65 AscW("a") = 97 |
| ２．Chr/ChrW メソッドの使用例(指定された文字コードに対応する文字を返す) |
| [名前空間: Microsoft.VisualBasic] Chr メソッド 指定された文字コードに対応する文字を返します。 ChrW メソッド ChrW は、CharCode を Unicode のコードポイントとして受け取ります。 構文 Chr/W(指定された文字コードに対応する文字を返します。) Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click TextBox1.Text = "02．Chr メソッド 指定された文字コードに対応する文字を返します。" & vbCrLf TextBox1.Text &= " ChrW メソッド ChrW は、CharCode を Unicode のコード ポイントとして受け取ります。" _ & vbCrLf & vbCrLf TextBox1.Text &= String.Format("Chr(65) = {0}", Chr(65)) & vbCrLf TextBox1.Text &= String.Format("ChrW(97) = {0}", ChrW(97)) & vbCrLf End Sub 上記実行結果 02．Chr メソッド 指定された文字コードに対応する文字を返します。 ChrW メソッド ChrW は、CharCode を Unicode のコードポイントとして受け取ります。 Chr(65) = A ChrW(97) = a |
| ３．Filter メソッドの使用例(指定されたフィルター条件に基づいた文字列配列を返す) |
| [名前空間: Microsoft.VisualBasic] Filter メソッド = 指定されたフィルター条件に基づいた文字列配列のサブセットを含むゼロベースの配列を返します。 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click TextBox1.Text = "03．Filter メソッド = 指定されたフィルター条件に基づいた文字列配列のサブセットを" & vbCrLf TextBox1.Text &= "含むゼロベースの配列を返します。" & vbCrLf & vbCrLf TextBox1.Text &= "Dim strItem() As String = {""A123"", ""B001"", ""A001"", ""C003"", ""a010"", ""0A0""}" _ & vbCrLf & vbCrLf TextBox1.Text &= "strFilter = Filter(strItem, ""A"", True, CompareMethod.Text)" & vbCrLf Dim strItem() As String = {"A123", "B001", "A001", "C003", "a010", "0A0"} Dim strFilter() As String 'strItem() の配列内から A が含まれているデータを strFilter() 配列にセットします strFilter = Filter(strItem, "A", True, CompareMethod.Text) For i As Integer = strFilter.GetLowerBound(0) To strFilter.GetUpperBound(0) TextBox1.Text &= String.Format("strFilter({0}) = {1} ", i, strFilter(i)) & vbCrLf Next i End Sub 上記実行結果 03．Filter メソッド = 指定されたフィルター条件に基づいた文字列配列のサブセットを 含むゼロベースの配列を返します。 Dim strItem() As String = {"A123", "B001", "A001", "C003", "a010", "0A0"} strFilter = Filter(strItem, "A", True, CompareMethod.Text) strFilter(0) = A123 strFilter(1) = A001 strFilter(2) = a010 strFilter(3) = 0A0 |
| ４．Format メソッドの使用例(書式指定文字列式に含まれる指示に従って書式設定された文字列を返す) |
| [名前空間: Microsoft.VisualBasic] Format メソッド = 書式指定文字列(String)式に含まれる指示に従って書式設定された文字列を返します。 Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click TextBox1.Text = "04．Format メソッド = 書式指定文字列(String)式に含まれる指示に従って書式設定された" _ & "文字列を返します。" & vbCrLf & vbCrLf TextBox1.Text &= "Dim value As Double = 12345.6" & vbCrLf TextBox1.Text &= "ans = Format(value, ""合計 = #,###.00"")" & vbCrLf Dim value As Double = 12345.6 Dim ans As String = "" ans = Format(value, "合計 = #,###.00") TextBox1.Text &= String.Format("ans = {0}", ans) End Sub 上記実行結果 04．Format メソッド = 書式指定文字列(String)式に含まれる指示に従って書式設定された文字列を返します。 Dim value As Double = 12345.6 ans = Format(value, "合計 = #,###.00") ans = 合計 = 12,345.60 |
| ５．FormatCurrency メソッドの使用例(コントロールパネルで定義されている通貨形式の文字列に書式設定する) |
| [名前空間: Microsoft.VisualBasic] FormatCurrency メソッド = システムのコントロールパネルで定義されている通貨記号を使って通貨形式の文字列に書式設定して返す文字列処理関数です。(引数の詳細については、MSDN 等を参照して下さい。) Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click TextBox1.Text = "05．FormatCurrency メソッド = システムのコントロールパネルで" _ & "定義されている通貨記号を使って" & vbCrLf TextBox1.Text &= "通貨形式の文字列に書式設定して返す文字列処理関数です。" & vbCrLf & vbCrLf Dim value As Double = 12345.6 Dim ans As String = "" ans = FormatCurrency(value, , , TriState.True, TriState.True) Console.WriteLine(ans) TextBox1.Text &= "Dim value As Double = 12345.6" & vbCrLf TextBox1.Text &= "ans = FormatCurrency(value, , , TriState.True, TriState.True)" & vbCrLf TextBox1.Text &= String.Format("ans = {0}", ans) End Sub 上記実行結果 05．FormatCurrency メソッド = システムのコントロールパネルで定義されている通貨記号を使って 通貨形式の文字列に書式設定して返す文字列処理関数です。 Dim value As Double = 12345.6 ans = FormatCurrency(value, , , TriState.True, TriState.True) ans =\12,346 |
| ６．FormatDateTime メソッドの使用例(日時の値を表す文字列式を返す) |
| [名前空間: Microsoft.VisualBasic] FormatDateTime メソッド = 日時の値を表す文字列式を返します。 Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click Dim TestDate As DateTime = #12/31/2013# Console.WriteLine(FormatDateTime(TestDate, DateFormat.LongDate)) Console.WriteLine(FormatDateTime(Now, DateFormat.ShortDate)) Console.WriteLine(FormatDateTime(Now, DateFormat.GeneralDate)) TextBox1.Text = "06．FormatDateTime メソッド = 日時の値を表す文字列式を返します。" & vbCrLf & vbCrLf TextBox1.Text &= "Dim TestDate As DateTime = #12/31/2013#" & vbCrLf TextBox1.Text &= String.Format("FormatDateTime(TestDate, DateFormat.LongDate) = {0}", _ FormatDateTime(TestDate, DateFormat.LongDate)) & vbCrLf TextBox1.Text &= String.Format("FormatDateTime(Now, DateFormat.ShortDate) = {0}", _ FormatDateTime(Now, DateFormat.ShortDate)) & vbCrLf TextBox1.Text &= String.Format("FormatDateTime(Now, DateFormat.GeneralDate) = {0}", _ FormatDateTime(Now, DateFormat.GeneralDate)) & vbCrLf End Sub 上記実行結果 06．FormatDateTime メソッド = 日時の値を表す文字列式を返します。 Dim TestDate As DateTime = #12/31/2013# FormatDateTime(TestDate, DateFormat.LongDate) = 2013年12月31日 FormatDateTime(Now, DateFormat.ShortDate) = 2015/01/08 FormatDateTime(Now, DateFormat.GeneralDate) = 2015/01/08 19:47:52 |
| ７．FormatNumber メソッドの使用例(数値形式の文字列に書式設定して返す) |
| [名前空間: Microsoft.VisualBasic] FormatNumber メソッド = 数値形式の文字列に書式設定して返す文字列処理関数です。 Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Console.WriteLine(FormatNumber(123456)) Console.WriteLine(FormatNumber(123456, 2, , , TriState.True)) Console.WriteLine(FormatNumber(0.567, 2, TriState.True, , TriState.True)) Console.WriteLine(FormatNumber(123456, 0, , , TriState.False)) Console.WriteLine(FormatNumber(-12345, 0, , , TriState.True)) Console.WriteLine(FormatNumber(-12345, 0, , TriState.True, TriState.True)) TextBox1.Text = "07．FormatNumber メソッド = 数値形式の文字列に書式設定して返す文字列処理関数です。" _ & vbCrLf & vbCrLf TextBox1.Text &= String.Format("FormatNumber(123456) = {0}", _ FormatNumber(123456)) & vbCrLf TextBox1.Text &= String.Format("FormatNumber(123456, 2, , , TriState.True) = {0}", _ FormatNumber(123456, 2, , , TriState.True)) & vbCrLf TextBox1.Text &= String.Format("FormatNumber(0.567, 2, TriState.True, , TriState.True) = {0}", _ FormatNumber(0.567, 2, TriState.True, , TriState.True)) & vbCrLf TextBox1.Text &= String.Format("FormatNumber(123456, 0, , , TriState.False) = {0}", _ FormatNumber(123456, 0, , , TriState.False)) & vbCrLf TextBox1.Text &= String.Format("FormatNumber(-12345, 0, , , TriState.True) = {0}", _ FormatNumber(-12345, 0, , , TriState.True)) & vbCrLf TextBox1.Text &= String.Format("FormatNumber(-12345, 0, , TriState.True, TriState.True) = {0}", _ FormatNumber(-12345, 0, , TriState.True, TriState.True)) & vbCrLf End Sub 上記実行結果 07．FormatNumber メソッド = 数値形式の文字列に書式設定して返す文字列処理関数です。 FormatNumber(123456) = 123,456.00 FormatNumber(123456, 2, , , TriState.True) = 123,456.00 FormatNumber(0.567, 2, TriState.True, , TriState.True) = 0.57 FormatNumber(123456, 0, , , TriState.False) = 123456 FormatNumber(-12345, 0, , , TriState.True) = -12,345 FormatNumber(-12345, 0, , TriState.True, TriState.True) = (12,345) |
| ８．FormatPercent メソッドの使用例(パーセント形式の文字列に書式設定する) |
| [名前空間: Microsoft.VisualBasic] FormatPercent メソッド = パーセント記号が付加されたパーセント形式の文字列に書式設定して返します。 引数については、上記 FormatNumber メソッドと同様です。 Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click Console.WriteLine(FormatPercent(0.1234)) Console.WriteLine(FormatPercent(0.1234, 1)) TextBox1.Text = "08．FormatPercent メソッド = パーセント記号が付加されたパーセント形式の文字列に" _ & "書式設定して返します。" & vbCrLf & _ " 引数については、上記 FormatNumber メソッドと同様です。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("FormatPercent(0.1234) = {0}", FormatPercent(0.1234)) & vbCrLf TextBox1.Text &= String.Format("FormatPercent(0.1234, 1) = {0}", FormatPercent(0.1234, 1)) & vbCrLf End Sub 上記実行結果 08．FormatPercent メソッド = パーセント記号が付加されたパーセント形式の文字列に書式設定して返します。 引数については、上記 FormatNumber メソッドと同様です。 FormatPercent(0.1234) = 12.34% FormatPercent(0.1234, 1) = 12.3% |
| ９．InStr メソッドの使用例(文字列の中から指定した文字列を検索し最初に見つかった文字列の位置を返す) |
| [名前空間: Microsoft.VisualBasic] InStr メソッド = ある文字列の中から指定した文字列を検索し、最初に見つかった文字列の開始位置を返します。 Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click Console.WriteLine("InStr(1,""ABCDC"", ""C"", CompareMethod.Text) = {0}", _ InStr(1, "ABCDC", "C", CompareMethod.Text)) TextBox1.Text = "09．InStr メソッド = ある文字列の中から指定した文字列を検索し、" _ & "最初に見つかった文字列の開始位置を返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("InStr(1,""ABCDC"", ""C"", CompareMethod.Text) = {0}", _ InStr(1, "ABCDC", "C", CompareMethod.Text)) & vbCrLf End Sub 上記実行結果 09．InStr メソッド = ある文字列の中から指定した文字列を検索し、最初に見つかった文字列の開始位置を返します。 InStr(1,"ABCDC", "C", CompareMethod.Text) = 3 |
| 10．InStrRev メソッドの使用例(ある文字列から指定の文字列を最後の文字位置から検索し最初に見つかった文字位置を返す) |
| [名前空間: Microsoft.VisualBasic] InStrRev メソッド = ある文字列の中から指定された文字列を最後の文字位置から検索し最初に見つかった文字位置を返す。 (先頭からその位置までの文字数) Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click Console.WriteLine("InStrRev(""ABCDC"", ""C"", CompareMethod.Text) = {0}", _ InStrRev("ABCDC", "C", -1, CompareMethod.Text)) TextBox1.Text = "10．InStrRev メソッド = ある文字列の中から指定された文字列を" _ & "最後の文字位置から検索し最初に見つかった文字位置を返す。" & vbCrLf TextBox1.Text &= " (先頭からその位置までの文字数)" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("InStrRev(""ABCDC"", ""C"", CompareMethod.Text) = {0}", _ InStrRev("ABCDC", "C", -1, CompareMethod.Text)) & vbCrLf End Sub 上記実行結果 10．InStrRev メソッド = ある文字列の中から指定された文字列を最後の文字位置から検索し最初に見つかった文字位置を返す。 (先頭からその位置までの文字数) InStrRev("ABCDC", "C", CompareMethod.Text) = 5 |
| 11．Join メソッドの使用例(配列に含まれる多数の部分文字列を結合して作成される文字列を返す) |
| [名前空間: Microsoft.VisualBasic] Join メソッド = 配列に含まれる多数の部分文字列を結合して作成される文字列を返します。 Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click Dim myData() As String = {"〒555-0011", "彦根市 城町 1-15", "草柳 強"} Dim Wk1 As String = Join(myData, vbCrLf) Dim Wk2 As String = Join(myData, " ") Console.WriteLine(Wk1) Console.WriteLine(Wk2) TextBox1.Text = "11．Join メソッド = 配列に含まれる多数の部分文字列を結合して作成される文字列を返します。" _ & vbCrLf & vbCrLf TextBox1.Text &= "Dim myData() As String = {""〒555-0011"", ""彦根市 城町 1-15"", ""草柳 強""}" & vbCrLf TextBox1.Text &= "Dim Wk1 As String = Join(myData, vbCrLf)" & vbCrLf TextBox1.Text &= "Dim Wk2 As String = Join(myData, "" "")" & vbCrLf TextBox1.Text &= String.Format("Wk1 = {0}", Wk1) & vbCrLf TextBox1.Text &= String.Format("Wk2 = {0}", Wk2) & vbCrLf End Sub 上記実行結果 11．Join メソッド = 配列に含まれる多数の部分文字列を結合して作成される文字列を返します。 Dim myData() As String = {"〒555-0011", "彦根市 城町 1-15", "草柳 強"} Dim Wk1 As String = Join(myData, vbCrLf) Dim Wk2 As String = Join(myData, " ") Wk1 = 〒555-0011 彦根市 城町 1-15 草柳 強 Wk2 = 〒555-0011 彦根市 城町 1-15 草柳 強 |
| 12．LCase メソッドの使用例(小文字に変換した文字列または文字を返す) |
| [名前空間: Microsoft.VisualBasic] LCase メソッド = 小文字に変換した文字列または文字を返します。 Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click Console.WriteLine("LCase(""VBRescue"") = {0}", LCase("VBRescue")) TextBox1.Text = "12．LCase メソッド = 小文字に変換した文字列または文字を返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("LCase(""VBRescue"") = {0}", LCase("VBRescue")) & vbCrLf End Sub 上記実行結果 12．LCase メソッド = 小文字に変換した文字列または文字を返します。 LCase("VBRescue") = vbrescue |
| 13．Left メソッドの使用例(文字列の左端から指定された文字数分の文字列を返す) |
| [名前空間: Microsoft.VisualBasic] Left メソッド = 文字列の左端から指定された文字数分の文字列を返します。 注意！ Left メソッドは、他の同名のプロパティ等と区別して記入する必要があります。 Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click Console.WriteLine("Strings.Left(""123456"", 2) = {0}", Strings.Left("123456", 2)) TextBox1.Text = "13．Left メソッド = 文字列の左端から指定された文字数分の文字列を返します。" & vbCrLf TextBox1.Text &= " 注意！ Left メソッドは、他の同名のプロパティ等と区別して記入する必要があります。" _ & vbCrLf & vbCrLf TextBox1.Text &= String.Format("Strings.Left(""123456"", 2) = {0}", Strings.Left("123456", 2)) & vbCrLf End Sub 上記実行結果 13．Left メソッド = 文字列の左端から指定された文字数分の文字列を返します。 注意！ Left メソッドは、他の同名のプロパティ等と区別して記入する必要があります。 Strings.Left("123456", 2) = 12 |
| 14．Len メソッドの使用例(指定された文字列の文字数または変数の格納に必要なバイト数を返す) |
| [名前空間: Microsoft.VisualBasic] Len メソッド = 文字列内の文字数または変数を格納するために必要な公称バイト数を表す整数を返します。 Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click Console.WriteLine("Len(""12あ45"") = {0}", Len("12あ45")) TextBox1.Text = "14．Len メソッド = 文字列内の文字数または変数を格納するために必要な" _ & "公称バイト数を表す整数を返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("Len(""12あ45"") = {0}", Len("12あ45")) & vbCrLf End Sub 上記実行結果 14．Len メソッド = 文字列内の文字数または変数を格納するために必要な公称バイト数を表す整数を返します。 Len("12あ45") = 5 |
| 15．LSet メソッドの使用例(指定の文字列を左寄せで指定の長さに調整して返す) |
| [名前空間: Microsoft.VisualBasic] LSet メソッド = 指定の文字列が含まれている文字列を左寄せで指定の長さに調整して返します。 Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click Console.WriteLine("LSet(""12あ45"", 3) = {0}", LSet("12あ45", 3)) TextBox1.Text = "15．LSet メソッド = 指定の文字列が含まれている文字列を左寄せで" _ & "指定の長さに調整して返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("LSet(""12あ45"", 3) = {0}", LSet("12あ45", 3)) & vbCrLf End Sub 上記実行結果 15．LSet メソッド = 指定の文字列が含まれている文字列を左寄せで指定の長さに調整して返します。 LSet("12あ45", 3) = 12あ |
| 16．LTrim メソッドの使用例(指定された文字列から先頭の空白を除いたコピーを格納する文字列を返す) |
| [名前空間: Microsoft.VisualBasic] LTrim メソッド = 指定された文字列から、先頭の空白を除いたコピーを格納する文字列を返します。 Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click Console.WriteLine("""["" & LTrim("" 12あ45 "") & ""]"" = {0}", "[" & LTrim(" 12あ45 ") & "]") TextBox1.Text = "16．LTrim メソッド = 指定された文字列から、先頭の空白を除いた" _ & "コピーを格納する文字列を返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("""["" & LTrim("" 12あ45 "") & ""]"" = {0}", _ "[" & LTrim(" 12あ45 ") & "]") & vbCrLf End Sub 上記実行結果 16．LTrim メソッド = 指定された文字列から、先頭の空白を除いたコピーを格納する文字列を返します。 "[" & LTrim(" 12あ45 ") & "]" = [12あ45 ] |
| 17．Mid メソッドの使用例(文字列から指定された文字数分の文字列を返す) |
| [名前空間: Microsoft.VisualBasic] Mid メソッド = 文字列から指定された文字数分の文字列を返します。 Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click Console.WriteLine("Mid(""あいうえお"", 2, 3) = {0}", Mid("あいうえお", 2, 3)) TextBox1.Text = "17．Mid メソッド = 文字列から指定された文字数分の文字列を返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("Mid(""あいうえお"", 2, 3) = {0}", Mid("あいうえお", 2, 3)) & vbCrLf End Sub 上記実行結果 17．Mid メソッド = 文字列から指定された文字数分の文字列を返します。 Mid("あいうえお", 2, 3) = いうえ |
| 18．Replace メソッドの使用例(指定された文字列の一部を指定された回数分別の文字列で置換る) |
| [名前空間: Microsoft.VisualBasic] Replace メソッド = 指定された文字列の一部を指定された回数分別の部分文字列で置換した文字列を返します。 Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click '半角スペースを , に置き換えます。 Console.WriteLine("Replace(""AB CD EF"", "" "", "","") = {0}", Replace("AB CD EF", " ", ",")) TextBox1.Text = "18．Replace メソッド = 指定された文字列の一部を指定された回数分別の部分文字列で" _ & "置換した文字列を返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("Replace(""AB CD EF"", "" "", "","") = {0}", Replace("AB CD EF", " ", ",")) & vbCrLf End Sub 上記実行結果 18．Replace メソッド = 指定された文字列の一部を指定された回数分別の部分文字列で置換した文字列を返します。 Replace("AB CD EF", " ", ",") = AB,CD,EF |
| 19．Right メソッドの使用例(文字列の右端から指定された文字数分の文字列を返す) |
| [名前空間: Microsoft.VisualBasic] Right メソッド = 文字列の右端から指定された文字数分の文字列を返します。 注意！ Right メソッドは、他の同名のプロパティ等と区別して記入する必要があります。 Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click Console.WriteLine("Strings.Right(""123456"", 2) = {0}", Strings.Right("123456", 2)) TextBox1.Text = "19．Right メソッド = 文字列の右端から指定された文字数分の文字列を返します。" & vbCrLf TextBox1.Text &= " 注意！ Right メソッドは、他の同名のプロパティ等と" _ & "区別して記入する必要があります。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("Strings.Right(""123456"", 2) = {0}", Strings.Right("123456", 2)) & vbCrLf End Sub 上記実行結果 19．Right メソッド = 文字列の右端から指定された文字数分の文字列を返します。 注意！ Right メソッドは、他の同名のプロパティ等と区別して記入する必要があります。 Strings.Right("123456", 2) = 56 |
| 20．RSet メソッドの使用例(文字列と長さが指定されその長さに調整された文字列を右揃えにして返す) |
| [名前空間: Microsoft.VisualBasic] RSet メソッド = 文字列と長さが指定され、その長さに調整された文字列を右揃えにした文字列を返します。 Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click Console.WriteLine("RSet(""12あ45"", 10) = {0}", RSet("12あ45", 10)) TextBox1.Text = "20．RSet メソッド = 文字列と長さが指定され、" _ & "その長さに調整された文字列を右揃えにした文字列を返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("RSet(""12あ45"", 10) = {0}", RSet("12あ45", 10)) & vbCrLf End Sub 上記実行結果 20．RSet メソッド = 文字列と長さが指定され、その長さに調整された文字列を右揃えにした文字列を返します。 RSet("12あ45", 10) = 12あ45 |
| 21．RTrim メソッドの使用例(指定された文字列から後続の空白を除いたコピーを格納する文字列を返す) |
| [名前空間: Microsoft.VisualBasic] RTrim メソッド = 指定された文字列から、後続の空白を除いたコピーを格納する文字列を返します。 Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click Console.WriteLine("""["" & RTrim("" 12あ45 "") & ""]"" = {0}", "[" & RTrim(" 12あ45 ") & "]") TextBox1.Text = "21．RTrim メソッド = 指定された文字列から、後続の空白を除いたコピーを" _ & "格納する文字列を返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("""["" & RTrim("" 12あ45 "") & ""]"" = {0}", "[" & RTrim(" 12あ45 ") & "]") & vbCrLf End Sub 上記実行結果 21．RTrim メソッド = 指定された文字列から、後続の空白を除いたコピーを格納する文字列を返します。 "[" & RTrim(" 12あ45 ") & "]" = [ 12あ45] |
| 22．Space メソッドの使用例(指定された数のスペースから成る文字列を返す) |
| [名前空間: Microsoft.VisualBasic] Space メソッド = 指定された数のスペースから成る文字列を返します。 Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click Console.WriteLine("""["" & Space(10) & ""]"" = {0}", "[" & Space(10) & "]") TextBox1.Text = "22．Space メソッド = 指定された数のスペースから成る文字列を返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("""["" & Space(10) & ""]"" = {0}", "[" & Space(10) & "]") & vbCrLf End Sub 上記実行結果 22．Space メソッド = 指定された数のスペースから成る文字列を返します。 "[" & Space(10) & "]" = [ ] |
| 23．Split メソッドの使用例(部分文字列ごとに区切られた文字列からゼロベースの 1 次元配列を作成する) |
| [名前空間: Microsoft.VisualBasic] Split メソッド = 部分文字列ごとに区切られた文字列からゼロベースの 1 次元配列を作成し、返します。 Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click Dim myData As String = "〒555-0011,彦根市 城町 1-15,草柳 強" Dim Wk1 As String() = Split(myData, ",", -1, CompareMethod.Text) For i As Integer = Wk1.GetLowerBound(0) To Wk1.GetUpperBound(0) Console.WriteLine(Wk1(i)) Next i TextBox1.Text = "23．Split メソッド = 部分文字列ごとに区切られた文字列からゼロベースの" _ & " 1 次元配列を作成し、返します。" & vbCrLf & vbCrLf TextBox1.Text &= "Dim myData As String = ""〒555-0011,彦根市 城町 1-15,草柳 強""" & vbCrLf TextBox1.Text &= "Dim Wk1 As String() = Split(myData, "","", -1, CompareMethod.Text)" & vbCrLf For i As Integer = Wk1.GetLowerBound(0) To Wk1.GetUpperBound(0) TextBox1.Text &= String.Format("Wk1({0}) = {1}", i, Wk1(i)) & vbCrLf Next i End Sub 上記実行結果 23．Split メソッド = 部分文字列ごとに区切られた文字列からゼロベースの 1 次元配列を作成し、返します。 Dim myData As String = "〒555-0011,彦根市 城町 1-15,草柳 強" Dim Wk1 As String() = Split(myData, ",", -1, CompareMethod.Text) Wk1(0) = 〒555-0011 Wk1(1) = 彦根市 城町 1-15 Wk1(2) = 草柳 強 |
| 24．StrComp メソッドの使用例(文字列比較の結果により、-1、0、または 1 のいずれかを返す) |
| [名前空間: Microsoft.VisualBasic] StrComp メソッド = 文字列比較の結果により、-1、0、または 1 のいずれかを返します。 Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click Console.WriteLine(StrComp("abcd", "ABCD", CompareMethod.Text)) Console.WriteLine(StrComp("abcd", "ABCD", CompareMethod.Binary)) Console.WriteLine(StrComp("A", "B", CompareMethod.Text)) Console.WriteLine(StrComp("B", "A", CompareMethod.Text)) TextBox1.Text = "24．StrComp メソッド = 文字列比較の結果により、-1、0、または" _ & " 1 のいずれかを返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("StrComp(""abcd"", ""ABCD"", CompareMethod.Text) = {0}", _ StrComp("abcd", "ABCD", CompareMethod.Text)) & vbCrLf TextBox1.Text &= String.Format("StrComp(""abcd"", ""ABCD"", CompareMethod.Binary) = {0}", _ StrComp("abcd", "ABCD", CompareMethod.Binary)) & vbCrLf TextBox1.Text &= String.Format("StrComp(""A"", ""B"", CompareMethod.Text) = {0}", _ StrComp("A", "B", CompareMethod.Text)) & vbCrLf TextBox1.Text &= String.Format("StrComp(""B"", ""A"", CompareMethod.Text) = {0}", _ StrComp("B", "A", CompareMethod.Text)) & vbCrLf End Sub 上記実行結果 24．StrComp メソッド = 文字列比較の結果により、-1、0、または 1 のいずれかを返します。 StrComp("abcd", "ABCD", CompareMethod.Text) = 0 StrComp("abcd", "ABCD", CompareMethod.Binary) = 1 StrComp("A", "B", CompareMethod.Text) = -1 StrComp("B", "A", CompareMethod.Text) = 1 |
| 25．StrConv メソッドの使用例(指定に従って変換された文字列型の値を返す) |
| [名前空間: Microsoft.VisualBasic] StrConv メソッド = 指定に従って変換された文字列型 (String) の値を返します。 Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click '文字列を大文字に変換します。 Console.WriteLine("StrConv(""abcdef"", VbStrConv.UpperCase) = {0}", StrConv("abcdef", VbStrConv.Uppercase)) '文字列を小文字に変換します。 Console.WriteLine("StrConv(""ABCDEF"", VbStrConv.Lowercase) = {0}", StrConv("ABCDEF", VbStrConv.Lowercase)) '文字列の各単語の先頭の文字を大文字に変換します。 Console.WriteLine("StrConv(""abc def"", VbStrConv.ProperCase) = {0}", StrConv("abc def", VbStrConv.ProperCase)) '文字列内の半角文字 (1 バイト) を全角文字 (2 バイト) に変換します。 Console.WriteLine("StrConv(""ABCDEF"", VbStrConv.Wide) = {0}", StrConv("ABCDEF", VbStrConv.Wide)) '文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換します。 Console.WriteLine("StrConv(""ＡＢＣＤＥＦ"", VbStrConv.Narrow) = {0}", StrConv("ＡＢＣＤＥＦ", VbStrConv.Narrow)) '文字列内のひらがなをカタカナに変換します。 Console.WriteLine("StrConv(""あいうえお"", VbStrConv.Katakana) = {0}", StrConv("あいうえお", VbStrConv.Katakana)) '文字列内のカタカナをひらがなに変換します。 Console.WriteLine("StrConv(""アイウエオ"", VbStrConv.Hiragana) = {0}", StrConv("アイウエオ", VbStrConv.Hiragana)) TextBox1.Text = "25．StrConv メソッド = 指定に従って変換された文字列型 (String) の値を返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("StrConv(""abcdef"", VbStrConv.UpperCase) = {0}", _ StrConv("abcdef", VbStrConv.Uppercase)) & vbCrLf TextBox1.Text &= String.Format("StrConv(""ABCDEF"", VbStrConv.Lowercase) = {0}", _ StrConv("ABCDEF", VbStrConv.Lowercase)) & vbCrLf TextBox1.Text &= String.Format("StrConv(""abc def"", VbStrConv.ProperCase) = {0}", _ StrConv("abc def", VbStrConv.ProperCase)) & vbCrLf TextBox1.Text &= String.Format("StrConv(""ABCDEF"", VbStrConv.Wide) = {0}", _ StrConv("ABCDEF", VbStrConv.Wide)) & vbCrLf TextBox1.Text &= String.Format("StrConv(""ＡＢＣＤＥＦ"", VbStrConv.Narrow) = {0}", _ StrConv("ＡＢＣＤＥＦ", VbStrConv.Narrow)) & vbCrLf TextBox1.Text &= String.Format("StrConv(""あいうえお"", VbStrConv.Katakana) = {0}", _ StrConv("あいうえお", VbStrConv.Katakana)) & vbCrLf TextBox1.Text &= String.Format("StrConv(""アイウエオ"", VbStrConv.Hiragana) = {0}", _ StrConv("アイウエオ", VbStrConv.Hiragana)) & vbCrLf End Sub 上記実行結果 25．StrConv メソッド = 指定に従って変換された文字列型 (String) の値を返します。 StrConv("abcdef", VbStrConv.UpperCase) = ABCDEF StrConv("ABCDEF", VbStrConv.Lowercase) = abcdef StrConv("abc def", VbStrConv.ProperCase) = Abc Def StrConv("ABCDEF", VbStrConv.Wide) = ＡＢＣＤＥＦ StrConv("ＡＢＣＤＥＦ", VbStrConv.Narrow) = ABCDEF StrConv("あいうえお", VbStrConv.Katakana) = アイウエオ StrConv("アイウエオ", VbStrConv.Hiragana) = あいうえお |
| 26．StrDup メソッドの使用例(指定の文字を指定された回数繰り返されている文字列を返す) |
| [名前空間: Microsoft.VisualBasic] StrDup メソッド = 指定された文字の最初の文字だけが指定された回数繰り返されている文字列型またはオブジェクト型の値を返します。 Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click Console.WriteLine("StrDup(5, ""ABC"") = {0}", StrDup(5, "ABC")) Console.WriteLine("StrDup(3, ""愛子"") = {0}", StrDup(3, "愛子")) TextBox1.Text = "26．StrDup メソッド = 指定された文字の最初の文字だけが指定された" _ & "回数繰り返されている文字列型またはオブジェクト型の値を返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("StrDup(5, ""ABC"") = {0}", StrDup(5, "ABC")) & vbCrLf TextBox1.Text &= String.Format("StrDup(3, ""愛子"") = {0}", StrDup(3, "愛子")) & vbCrLf End Sub 上記実行結果 26．StrDup メソッド = 指定された文字の最初の文字だけが指定された回数繰り返されている文字列型またはオブジェクト型の値を返します。 StrDup(5, "ABC") = AAAAA StrDup(3, "愛子") = 愛愛愛 |
| 27．StrReverse メソッドの使用例(指定された文字列の文字の並び順を逆にした文字列を返す) |
| [名前空間: Microsoft.VisualBasic] StrReverse メソッド = 指定された文字列の文字の並び順を逆にした文字列を返します。 Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click Console.WriteLine("StrReverse(""あいうえお"") = {0}", StrReverse("あいうえお")) TextBox1.Text = "27．StrReverse メソッド = 指定された文字列の文字の並び順を逆にした文字列を返します。" _ & vbCrLf & vbCrLf TextBox1.Text &= String.Format("StrReverse(""あいうえお"") = {0}", StrReverse("あいうえお")) & vbCrLf End Sub 上記実行結果 27．StrReverse メソッド = 指定された文字列の文字の並び順を逆にした文字列を返します。 StrReverse("あいうえお") = おえういあ |
| 28．Trim メソッドの使用例(指定された文字列から先頭と後続の空白を除いたコピーを格納する文字列を返す) |
| [名前空間: Microsoft.VisualBasic] Trim メソッド = 指定された文字列から、先頭と後続の空白を除いたコピーを格納する文字列を返します。 Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click Console.WriteLine("""["" & Trim("" 12あ45 "") & ""]"" = {0}", "[" & Trim(" 12あ45 ") & "]") TextBox1.Text = "28．Trim メソッド = 指定された文字列から、先頭と後続の空白を除いたコピーを" _ & "格納する文字列を返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("""["" & Trim("" 12あ45 "") & ""]"" = {0}", "[" & Trim(" 12あ45 ") & "]") & vbCrLf End Sub 上記実行結果 28．Trim メソッド = 指定された文字列から、先頭と後続の空白を除いたコピーを格納する文字列を返します。 "[" & Trim(" 12あ45 ") & "]" = [12あ45] |
| 29．UCase メソッドの使用例(指定された文字列を大文字に変換した文字列を返す) |
| [名前空間: Microsoft.VisualBasic] UCase メソッド = 指定された文字列を大文字に変換して文字列型 (String) または char 型 (Char) の値を返します。 Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click Console.WriteLine("UCase(""abcdefg"") = {0}", UCase("abcdefg")) TextBox1.Text = "29．UCase メソッド = 指定された文字列を大文字に変換して文字列型 (String) または" _ & " char 型 (Char) の値を返します。" & vbCrLf & vbCrLf TextBox1.Text &= String.Format("UCase(""abcdefg"") = {0}", UCase("abcdefg")) & vbCrLf End Sub 上記実行結果 29．UCase メソッド = 指定された文字列を大文字に変換して文字列型 (String) または char 型 (Char) の値を返します。 UCase("abcdefg") = ABCDEFG |
| 30． |
| 検索キーワード及びサンプルコードの別名(機能名) |
|