VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 文字列操作関係のメニュー
1.文字列を半角→←全角等異種文字列に変換する
2.文字列の文字数・バイト数を取得する
3.文字列中から指定位置の文字を取り出す
4.指定の文字数になるまで、先頭又は、末尾に指定文字を埋める
5.文字列の半角換算のバイト数の取得及び文字列を指定のバイト数にカット
6.指定バイト位置から指定バイト数分の文字列を取り出す関数
7.半角カタカナだけを全角カタカナに変換する
8.文字列中から指定の文字を検索する方法色々
9.
10.
11.
12.
 .
20.その他、当サイト内に掲載の文字列操作に関するサンプル


1.文字列を半角→←全角等異種文字列に変換する(39_Str_01) (旧、SampleNo.012)
1.英字の大文字を小文字に変換する(3方法)
2.英字の小文字を大文字に変換する(3方法)
3.半角文字を全角文字に変換する
4.全角文字を半角文字に変換する
5.ひらがなをカタカナに変換する
6.カタカナをひらがなに変換する
7.単語の先頭文字を大文字に変換する

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86
Option :[Compare Text] [Explicit On] [Infer On] [Strict On]
Imports :追加なし
参照設定:
追加なし
その他 :
    :
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 1.英字の大文字を小文字に変換する(3方法)

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
'英字の大文字を小文字に変換する(3方法)
    Dim str1 As String = "ABCDefgh"
    Label1.Text = "Dim str1 As String = ""ABCDefgh""" & vbCrLf & vbCrLf
    Label1.Text &= String.Format("str1.ToLower                       = {0}", str1.ToLower) & vbCrLf
    Label1.Text &= String.Format("Microsoft.VisualBasic.LCase(str1)  = {0}", Microsoft.VisualBasic.LCase(str1)) & vbCrLf
    Label1.Text &= String.Format("StrConv(str1, VbStrConv.Lowercase) = {0}", StrConv(str1, VbStrConv.Lowercase)) & vbCrLf

    Label2.Text = "英字の大文字を小文字に変換する(3方法)"
End Sub

このページのトップへ移動します。 2.英字の小文字を大文字に変換する(3方法)

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'英字の小文字を大文字に変換する(3方法)
    Dim str1 As String = "ABCDefgh"
    Label1.Text = "Dim str1 As String = ""ABCDefgh""" & vbCrLf & vbCrLf
    Label1.Text &= String.Format("str1.ToUpper                       = {0}", str1.ToUpper) & vbCrLf
    Label1.Text &= String.Format("Microsoft.VisualBasic.UCase(str1)  = {0}", Microsoft.VisualBasic.UCase(str1)) & vbCrLf
    Label1.Text &= String.Format("StrConv(str1, VbStrConv.Uppercase) = {0}", StrConv(str1, VbStrConv.Uppercase)) & vbCrLf

    Label2.Text = "英字の小文字を大文字に変換する(3方法)"
End Sub

このページのトップへ移動します。 3.半角文字を全角文字に変換する

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
'半角文字を全角文字に変換する
    Dim str1 As String = "ABCアイバビパピ12"
    Label1.Text = "Dim str1 As String = ""ABCアイバビパピ12""" & vbCrLf & vbCrLf
    Label1.Text &= String.Format("StrConv(str1, VbStrConv.Wide) = {0}", StrConv(str1, VbStrConv.Wide)) & vbCrLf

    Label2.Text = "半角文字を全角文字に変換する"
End Sub

このページのトップへ移動します。 4.全角文字を半角文字に変換する

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
'全角文字を半角文字に変換する
    Dim str1 As String = "ABCアイバビパピ12"
    Label1.Text = "Dim str1 As String = ""ABCアイバビパピ12""" & vbCrLf & vbCrLf
    Label1.Text &= String.Format("StrConv(str1, VbStrConv.Narrow) = {0}", StrConv(str1, VbStrConv.Narrow)) & vbCrLf

    Label2.Text = "全角文字を半角文字に変換する"
End Sub

このページのトップへ移動します。 5.ひらがなをカタカナに変換する

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
'ひらがなをカタカナに変換する
    Dim str1 As String = "あいうえおばびぱぴ"
    Label1.Text = "Dim str1 As String = ""あいうえおばびぱぴ""" & vbCrLf & vbCrLf
    Label1.Text &= String.Format("StrConv(str1, VbStrConv.Katakana) = {0}", StrConv(str1, VbStrConv.Katakana)) & vbCrLf

    Label2.Text = "ひらがなをカタカナに変換する"
End Sub

このページのトップへ移動します。 6.カタカナをひらがなに変換する

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
'カタカナをひらがなに変換する
    Dim str1 As String = "アイウエオバビパピ"
    Label1.Text = "Dim str1 As String = ""アイウエオバビパピ""" & vbCrLf & vbCrLf
    Label1.Text &= String.Format("StrConv(str1, VbStrConv.Hiragana) = {0}", StrConv(str1, VbStrConv.Hiragana)) & vbCrLf

    Label2.Text = "カタカナをひらがなに変換する"
End Sub

このページのトップへ移動します。 7.単語の先頭文字を大文字に変換する

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
'単語の先頭文字を大文字に変換する
    Dim str1 As String = "abcde fghij klmn"
    Label1.Text = "Dim str1 As String = ""abcde fghij klmn""" & vbCrLf & vbCrLf
    Label1.Text &= String.Format("StrConv(str1, VbStrConv.ProperCase) = {0}", StrConv(str1, VbStrConv.ProperCase)) & vbCrLf

    Label2.Text = "単語の先頭文字を大文字に変換する"

'大文字と小文字の区別を適切に行うための文字列の有効な単語の区切り記号としては、
'Null (Chr(0))、水平タブ (Chr(9))、ラインフィード (Chr(10))、垂直タブ (Chr(11))、
'フォームフィード (Chr(12))、キャリッジリターン (Chr(13))、スペース (1 バイト文字セット)
' (Chr(32)) があります。空白の実際の値は、全角文字と半角文字のどちらでもかまいませんが、
'東アジア文化圏では国/地域によって異なります。
End Sub

このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)





このページのトップへ移動します。