VB6文字列を挿入する

スポンサーリンク

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)

関連するリファレンス

準備中です。

スポンサーリンク