玄関へお回り下さい。
主要文字列関数(Microsoft.VisualBasic)の使用例その2 (10個)  (SNo.004)
Replace   指定された文字列の一部を指定された回数分別の部分文字列で置換した文字列を返す
Right    文字列の右端から指定された文字数分の文字列を返します。 
Rset    文字列と長さが指定され、その長さに調整された文字列を左揃えにして文字列を返す
RTrim    指定された文字列から後続のスペースを除いたコピーを含む文字列を返します。 
StrComp   文字列比較の結果により、-1、0、または 1 のいずれかを返します 
StrConv   指定に従って変換された文字列型 (String) の値を返します。
StrDup   指定された文字が指定された回数繰り返されている文字列型・オブジェクト型の値を返す
StrReverse 指定された文字列の文字の並び順を逆にした文字列を返します。 
Trim    指定された文字列から先頭と後続のスペースを除いたコピーを含む文字列を返します。
UCase    指定された文字列を大文字に変換して文字列型(String)又はchar型(Char)の値を返す 
使用コントロール Button12 〜 Button21  
その他条件 WindowsXP Visual Basic .NET 2003
必要により Imports Microsoft.VisualBasic 
Replace 関数

Private Sub Button12_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button12.Click
'Replace 関数     [名前空間 : Microsoft.VisualBasic]
    '指定された文字列の一部を指定された回数分別の部分文字列で置換した文字列を返します。
    Debug.WriteLine(Microsoft.VisualBasic.Replace("AB CD EF", " ", ",")) '結果  AB,CD,EF
End Sub

Right 関数

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

 
又、Form に同名のプロパティがありますので、Right("123456", 2) のように省略して使用しない事
Rset 関数
 
Private Sub Button14_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button14.Click
'Rset 関数      [名前空間 : Microsoft.VisualBasic]
    '文字列と長さが指定され、その長さに調整された文字列を左揃えにして文字列を返します。
    Debug.WriteLine("[" & Microsoft.VisualBasic.RSet("1234", 8) & "]") '結果  [ 1234]
End Sub
 
RTrim 関数

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

StrComp 関数

Private
 Sub Button16_Click(ByVal sender As System.Object, _
                           
ByVal e As System.EventArgs) Handles Button16.Click
'StrComp 関数     [名前空間 : Microsoft.VisualBasic]
    '文字列比較の結果により、-1、0、または 1 のいずれかを返します
    Debug.WriteLine(Microsoft.VisualBasic.StrComp( _
           "ABCDEF", "abcdef", CompareMethod.Binary))  
'結果  -1
    Debug.WriteLine(Microsoft.VisualBasic.StrComp("B", "A"))       
'結果  1

    'String1 が String2 の前に来る場合  -1      (String1 が小さい)
    'String1 と String2 が等しい場合    0 
    'String1 が String2 の後に来る場合  1       (String1 が大きい)
End Sub

StrConv 関数

Private
 Sub Button17_Click(ByVal sender As System.Object, _
                           
ByVal e As System.EventArgs) Handles Button17.Click
'StrConv 関数     [名前空間 : Microsoft.VisualBasic]
    '指定に従って変換された文字列型 (String) の値を返します。
   
Debug.WriteLine(Microsoft.VisualBasic.StrConv("ABCDEF", VbStrConv.LowerCase))  '結果  abcdef

'    列挙型メンバー                      (説明)
'VbStrConv.None                 変換は行われません。 
'VbStrConv.LinguisticCasing     大文字と小文字については、ファイル システムではなく言語の規則に
                
従い、UpperCase および LowerCase と組み合わせる場合にだけ有効
'VbStrConv.UpperCase            文字列を大文字に変換します。 
'VbStrConv.LowerCase            文字列を小文字に変換します。 
'VbStrConv.ProperCase           文字列の各単語の先頭の文字を大文字に変換します。 
'VbStrConv.Wide*                文字列内の半角文字 (1 バイト) を全角文字 (2 バイト) に変換します
'VbStrConv.Narrow*              文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換します
'VbStrConv.Katakana**           文字列内のひらがなをカタカナに変換します。 
'VbStrConv.Hiragana**           文字列内のカタカナをひらがなに変換します。 
'VbStrConv.SimplifiedChinese*   中国語の繁体字を簡体字に変換します。 
'VbStrConv.TraditionalChinese*  中国語の簡体字を繁体字に変換します。 
'*    アジア ロケールに適用されます。
'**   ロケール設定が日本の場合のみ有効です。
End Sub

StrDup 関数

Private Sub Button18_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) Handles Button18.Click
'StrDup 関数    [名前空間 : Microsoft.VisualBasic]
    '指定された文字が指定された回数繰り返されている文字列型 (String) または
    'オブジェクト型 (Object) の値を返します。
    Debug.WriteLine(Microsoft.VisualBasic.StrDup(5, "ABC"))  '結果  AAAAA
End Sub

Private Sub Button19_Click(ByVal sender As System.Object, _
                           
ByVal e As System.EventArgs) Handles Button19.Click
'StrReverse 関数    [名前空間 : Microsoft.VisualBasic]
    '指定された文字列の文字の並び順を逆にした文字列を返します。
    Debug.WriteLine(Microsoft.VisualBasic.StrReverse("ABCDEF"))   
'結果  FEDCBA
End Sub

 
Trim 関数

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

UCase 関数

Private Sub Button21_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button21.Click
'UCase 関数     [名前空間 : Microsoft.VisualBasic]
    '指定された文字列を大文字に変換して文字列型 (String) または char 型の値を返します。
    Debug.WriteLine(Microsoft.VisualBasic.Strings.UCase("abc"))     '結果  ABC
End Sub





2004/04/24
2005/08/29


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