文字操作 文字列の一部を、別の文字列で置換した文字列を返す(Replace関数)

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。


Private Sub SarchWebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim a As String

With Me.SarchWebBrowser.Document
a = .documentelement.innerhtml 'まで
End With
Dim MyReplace As String, MyReplace2 As String

MyReplace = Trim(Replace(a, Chr(13), ""))

MyReplace2 = Trim(Replace(MyReplace, Chr(10), ""))
MyReplace = MyReplace2

Dim Hajime As Long, Owari As Long, ShutokuMoji As String, NokoriMoji As String
Dim StrInd As Long, Moji() As String

ReTRY:

Hajime = InStr(1, MyReplace, "<")
Owari = InStr(1, MyReplace, ">")

ShutokuMoji = Mid(MyReplace, 1, Hajime - 1)
If Len(ShutokuMoji) > 0 Then
StrInd = StrInd + 1
ReDim Preserve Moji(StrInd)
Moji(StrInd) = Trim(ShutokuMoji)
'Debug.Print Moji(StrInd)
End If

NokoriMoji = Trim(Mid(MyReplace, Owari + 1, Len(MyReplace)))

If Len(NokoriMoji) > 0 Then
MyReplace = NokoriMoji
GoTo ReTRY:
End If

Dim MyFor As Long
With ThisWorkbook.Worksheets("sheet1")
For MyFor = 1 To StrInd
.Cells(MyFor, 1).Value = Moji(MyFor)
Next MyFor
End With
End Sub

 

 

 

2000年01月01日|[VBサンプルコード]:[文字操作]