玄関へお回り下さい。
主要文字列関数(Microsoft.VisualBasic)の使用例 その1 (11個) (SNo.004)
Asc    文字に対応する文字コードを表す整数型 (Integer) の値を返します。
Chr    指定された文字コードに対応する文字を返します。
GetChar  指定された文字列内の指定されたインデックス位置にある文字を表す
InStr   文字列の中から指定した文字列を検索し、最初に見つかった文字列の位置を返します
InStrRev  文字列を最後の文字位置から検索をし最初に見つかった先頭からの文字位置を返す
LCase   小文字に変換した文字列または文字を返します。 
Left      文字列の左端から指定された文字数分の文字列を返します。
Len      指定された文字列の文字数または変数の格納に必要なバイト数を含む整数型の値を返す
Lset      文字列と長さが指定され、その長さに調整された文字列を左揃えにして文字列を返します。
LTrim   指定された文字列から先頭のスペースを除いたコピーを含む文字列を返します。  
Mid    文字列から指定された文字数分の文字列を返します。
使用コントロール Button1 〜 Button11
その他条件 WindowsXP Visual Basic .NET 2003
必要により Imports Microsoft.VisualBasic
Private Sub Button1_Click(ByVal sender As System.Object, _
                         
ByVal e As System.EventArgs) Handles Button1.Click
'Asc 関数、AscW 関数    [名前空間 : Microsoft.VisualBasic]
    '文字に対応する文字コードを表す整数型 (Integer) の値を返します。
    Debug.WriteLine(Microsoft.VisualBasic.Asc("A"))     
'結果  65

    'AscW は、入力文字に対する Unicode コード ポイントを返します。
    'これは 0 〜 65535 の値です。返される値は、現在のスレッドのカルチャや
    'コード ページ設定には依存しません。(以下 W 付きは同様ですので解説は省略します)
    Debug.WriteLine(Microsoft.VisualBasic.AscW("A"))   
'結果  65
End Sub

Chr 関数、ChrW 関数

Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'Chr 関数、ChrW 関数    [名前空間 : Microsoft.VisualBasic]
    '指定された文字コードに対応する文字を返します。
    Debug.WriteLine(Microsoft.VisualBasic.Chr(65))      '結果  A
    'ChrW は、CharCode を Unicode のコード ポイントとして受け取ります。
    Debug.WriteLine(Microsoft.VisualBasic.ChrW(65))     '結果  A
End Sub

GetChar 関数

Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'GetChar 関数       [名前空間 : Microsoft.VisualBasic]
    '指定された文字列内の指定されたインデックス位置にある
    '文字を表す char 型 (Char) の値を返します。
    Debug.WriteLine(Microsoft.VisualBasic.GetChar("ABCD", 3))   '結果  C
End Sub

InStr 関数

Private Sub Button4_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'InStr 関数     [名前空間 : Microsoft.VisualBasic]
    'ある文字列の中から指定した文字列を検索し、最初に見つかった文字列の
    '開始位置を示す整数型 (Integer) の値を返します。
    Debug.WriteLine(Microsoft.VisualBasic.InStr("ABCD", "C", CompareMethod.Text)) '結果  3
End Sub

InStrRev 関数

Private Sub Button5_Click(ByVal sender As System.Object, _
                         
ByVal e As System.EventArgs) Handles Button5.Click
'InStrRev 関数      [名前空間 : Microsoft.VisualBasic]
    'ある文字列 (StringCheck) の中から指定された文字列 (StringMatch) を最後の文字位置から
    '検索を開始し、最初に見つかった文字位置 (先頭からその位置までの文字数) を返します。
    Debug.WriteLine(Microsoft.VisualBasic.InStrRev("いいいあいう", "い"))     
'結果  5
End Sub

LCase 関数

Private Sub Button6_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button6.Click
'LCase 関数     [名前空間 : Microsoft.VisualBasic]
    '小文字に変換した文字列または文字を返します。
    Debug.WriteLine(Microsoft.VisualBasic.LCase("VBRescue"))    '結果  vbrescue
End Sub

Left 関数

Private
 Sub Button7_Click(ByVal sender As System.Object, _
                         
ByVal e As System.EventArgs) Handles Button7.Click
'Left 関数      [名前空間 : Microsoft.VisualBasic]
    '文字列の左端から指定された文字数分の文字列を返します。
    Debug.WriteLine(Microsoft.VisualBasic.Left("123456", 2))   
'結果  12
End Sub

 
又、Form に同名のプロパティがありますので、Right("123456", 2) のように省略して使用しない事
Len 関数

Private Sub Button8_Click(ByVal sender As System.Object, _
              
ByVal e As System.EventArgs) Handles Button8.Click
'Len 関数       [名前空間 : Microsoft.VisualBasic]
    '指定された文字列の文字数または変数の格納に必要な
    'バイト数を含む整数型 (Integer) の値を返します。
    Debug.WriteLine(Microsoft.VisualBasic.Len("123あいう"))     
'結果  6
End Sub

LSet 関数

Private Sub Button9_Click(ByVal sender As System.Object, _
             ByVal
 e As System.EventArgs) Handles Button9.Click
'Lset 関数      [名前空間 : Microsoft.VisualBasic]
    '文字列と長さが指定され、その長さに調整された文字列を左揃えにして文字列を返します。
    Debug.WriteLine("[" & Microsoft.VisualBasic.LSet("1234", 8) & "]") 
'結果  [1234 ]
End Sub

LTrim 関数

Private Sub Button10_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button10.Click
'LTrim 関数     [名前空間 : Microsoft.VisualBasic]
    '指定された文字列から先頭のスペースを除いたコピーを含む文字列を返します。
    Debug.WriteLine("[" & Microsoft.VisualBasic.LTrim("   ABC   ") & "]") '結果  [ABC ]
End Sub

Mid 関数

Private Sub Button11_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button11.Click
'Mid 関数       [名前空間 : Microsoft.VisualBasic]
    '文字列から指定された文字数分の文字列を返します。
    Debug.WriteLine(Microsoft.VisualBasic.Mid("123456", 2, 3))   '結果  234
End Sub




2004/04/24
2005/08/29


VBレスキュー(花ちゃん)
VB.NET2003  VB2005