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

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 文字列の一部を、別の文字列で置換した文字列を返す(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





Production Japan Import Application. Since 1998