Search a text in the between the text by VBA

Ask Question Forum:

Model Library:2025-02-08 Updated:A.I. model is online for auto reply question page

Show

ASK RECENT

Search a text in the between the text by VBA

Asked by duncanb7

at 2024-04-07 07:56:21

Point:500 Replies:5 POST_ID:828464USER_ID:11059

Topic:

Hypertext Markup Language (HTML);;Visual Basic Programming

I would like to detele all x:num="A.B" code in my following html paga by VBA,
where A can be any integer and B can any deciaml, I mean the length of A and B is varied
SO Could we look a text starting from "x:num: and ending from ">" and replaced by " " ,
I look at this worksite,http://www.exceltip.com/st/Replace_text_in_a_text_file_using_VBA_in_Microsoft_Excel/468.html
It search exact text string , Is it correct ?

Could you provide me a little code to looping search for example, x=num=*> , where * is anything
The reason to delete it because reducing file size, and it is generated from Excel htm file
Pleasde advise

Duncan

<html><body><td class=xl122 bgcolor="#CCFFFF" align=center x:num="5.4310969999999994">10</td><td class=xl122 bgcolor="#CCFFFF" align=center x:num="10.4399994">16</td><td class=xl122 bgcolor="#CCFFFF" align=center x:num="500.4096999994">19</td></body></html>

1:2:3:4:5:6:7:8:

Select All Code

Author: duncanb7 replied at 2024-04-20 07:52:07

Thanks for your reply

Assisted Solution

Expert: aikimark replied at 2024-04-14 07:31:23

250 points EXCELLENT

If you needed to do other clean-up, you could parameterize the attribute string.

To use the RemoveAttribute() function below to do the same thing as the RemoveXnum(), do something like this:

strHTML = RemoveAttribute(strHTML, "x:num=")

Option ExplicitFunction RemoveAttribute(parmString As String, parmAttribute As String) As String  Dim lngGTPosn As Long  Dim lngSpacePosn As Long  Dim lngLoop As Long  Dim strThing() As String  strThing = Split(parmString, parmAttribute)  For lngLoop = 1 To UBound(strThing)    If Left$(strThing(lngLoop), 1) = Chr(34) Then   'is first character a quote?      lngGTPosn = InStr(1, strThing(lngLoop), ">", vbBinaryCompare)      lngSpacePosn = InStr(1, strThing(lngLoop), " ", vbBinaryCompare)      If (lngSpacePosn <> 0) And (lngSpacePosn < lngGTPosn) Then        strThing(lngLoop) = Mid$(strThing(lngLoop), lngSpacePosn + 1)      Else        strThing(lngLoop) = Mid$(strThing(lngLoop), lngGTPosn)      End If    End If  Next  RemoveAttribute = Join(strThing, "")End Function

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:

Select All Code

Expert: aikimark replied at 2024-04-14 07:10:29

An alternative method is to use the Split() function and then remove the quoted numbers from the start of those strings. In this case, you pass the RemoveXnum() function your HTML string and it returns the cleaned up string.

How you get that HTML isn't part of the stated problem.

Option ExplicitFunction RemoveXnum(parmString As String) As String  Dim lngPosn As Long  Dim lngLoop As Long  Dim strThing() As String  strThing = Split(parmString, "x:num=")  For lngLoop = 1 To UBound(strThing)    If Left$(strThing(lngLoop), 1) = Chr(34) Then   'is first character a quote?      lngPosn = InStr(1, strThing(lngLoop), ">", vbBinaryCompare)      strThing(lngLoop) = Mid$(strThing(lngLoop), lngPosn)    End If  Next  RemoveXnum = Join(strThing, "")End Function

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:

Select All Code

Expert: aikimark replied at 2024-04-14 06:51:22

@kaufmed

Even though the HTML sample was shown on separate lines, it isn't reliably stored as CrLf-delimited strings. You might want to read the entire contents of the file and then perform your RegExp parsing.

Accepted Solution

Expert: kaufmed replied at 2024-04-07 08:37:31

250 points EXCELLENT

This should do it:

sourceFile = "input.html"Set reg = New RegExpSet fso = CreateObject("Scripting.FileSystemObject")temp = fso.GetTempName()Set file = fso.OpenTextFile(sourceFile)Set output = fso.CreateTextFile(temp)While Not file.AtEndOfStream    source = file.ReadLine()    With reg        .Pattern = "x:num=""[^""]*"""        .Global = True        source = .Replace(source, "")    End With    output.WriteLine(source)Wendoutput.Close()file.Close()Call fso.CopyFile(temp, sourceFile, TRUE)MsgBox "Done!"

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:22:23:24:25:26:27:

Select All Code

新聞財經娛樂♬資訊 News Economy

About Us|Service|Pricing

Stock Index全球即時指數期貨:

&nbps;

News即時新聞:↓

News即時新聞:↑

On Balance Volume (OBV):

Youtube Video♬ Sharing by members:↓

Youtube Video♬ Sharing by members:↑

Ask Question Forum:

Search a text in the between the text by VBA

Your Information

Members/Profolio