24

VB5で文字列をReplace

6月

‘ 指定文字列の置き換え(VB5版)
‘  –オラクルのReplace関数みたいな処理

‘  概要
‘  テキスト1の文字列からテキスト2で指定した文字列を検索し、
‘  テキスト3の文字列に置き換える

‘ 前準備
‘  ・フォームにコマンドボタン、テキストボックス×3、ラベルを配置
‘  ・コマンドボタンのクリックイベントに下のコードを貼り付け

Private Sub Command1_Click()
    Dim strString   As String
    Dim strSrch     As String
    Dim strRepr     As String
    Dim intIndex    As Integer
    Dim strDum1     As String
    Dim strDum2     As String
   
    strString = Text1.Text  ‘検索対象
    strSrch = Text2.Text    ‘検索文字列
    strRepr = Text3.Text    ‘置換文字列
   
    intIndex = 1
    Do
        If Mid(strString, intIndex, Len(strSrch)) = strSrch Then
       
            strDum1 = Mid(strString, 1, intIndex – 1)
            strDum2 = Mid(strString, intIndex + Len(strSrch))
       
            strString = strDum1 & strRepr & strDum2
       
            intIndex = intIndex + Len(strRepr) – 1  ‘検索開始位置をすすめる
           
        End If
       
        If Len(strString) < intIndex + Len(strSrch) Then Exit Do
       
        intIndex = intIndex + 1     ‘検索開始位置をすすめる
    Loop
   
    Label1.Caption = strString

End Sub

continue reading...

Leave a Reply