文字列を挿入する
スポンサーリンク
VB6 では、Insert のようなメソッドがありませんが、Left$ 関数と Mid$ 関数を使えば容易に可能です。.NET Framework に倣って、このような関数を組みます。
サンプルコード
以下にサンプルコードを示します。
VB6.0 以前
' ------------------------------------------------------------------------------- ' 文字列の指定した位置に、指定した文字列を挿入します。 ' ' @Param stTarget 挿入対象となる文字列。 ' @Param iStart 挿入を開始する位置。 ' @Param stValue 挿入する文字列。 ' @Return 指定した位置に nValue が挿入された文字列。 ' ------------------------------------------------------------------------------- Public Function InsertString(ByVal stTarget As String, ByVal iStart As Integer, ByVal stValue As String) As String InsertString = Left$(stTarget, iStart) & stValue & Mid$(stTarget, iStart + 1) End Function
使用例は以下のようになります。
VB6.0 以前
' 文字列を格納するための変数を宣言する Dim stTarget As String stTarget = "ABCGHI" ' 3 文字目の後に文字列 "DEF" を挿入する stTarget = InsertString(stTarget, 3, "DEF") ' 挿入後の文字列を表示する Call MsgBox(stTarget)
関連するリファレンス
準備中です。