VB6文字列を削除する

スポンサーリンク

VB6 では、Left$ 関数と Mid$ 関数を使えば容易に可能です。.NET Framework に倣って、このような関数を組みます。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
' -------------------------------------------------------------------------------
'       文字列の指定した位置から指定数の文字を削除します。
'
' @Param    stTarget    削除対象となる文字列。
' @Param    iStart      削除を開始する位置。
' @Param    iCount      削除する文字数。
' @Return               指定した位置から iCount 分の文字数が削除された文字列。
' -------------------------------------------------------------------------------
Public Function RemoveString(ByVal stTarget As String, ByVal iStart As Integer, ByVal iCount As String) As String
    RemoveString = Left$(stTarget, iStart) & Mid$(stTarget, iStart + iCount + 1)
End Function

使用例は以下のようになります。

VB6.0 以前
    ' 文字列を格納するための変数を宣言する
    Dim stTarget As String
    stTarget = "ABC1234DEF"

    ' 3 文字目の後から 4 文字を削除する
    stTarget = RemoveString(stTarget, 3, 4)

    ' 削除後の文字列を表示する
    Call MsgBox(stTarget)

関連するリファレンス

準備中です。

スポンサーリンク