I WANT TO NAVIGATE TO A PAGE OF A WEBSITE BUT THE HTML IS DYNAMIC THEN I WANT TO CONVERT THE CHARACTERS IN THE HTML AND REPLACE THEM BY THE HEX
Here is the charaters i want to replace it is a tab ! " # $ % & ' ( ) * + , - . / here is the characters i want to have instead 21% 22% 23% 24% 25% 26% 27% 28% 29% %2A %2B %2C %2D %2E %2F
here is the column or tab with the strings I want to modify
977 B.C. Ltd. - 478 30 B.C. Ltd - 608 1tario Ltd. - 40456 1077369 Ontario Inc - 40920
LINKS TO CHANGE for example ://ptest.vire.ca/AgotesEdit.asp?ID=Leux, Luen- C918submit = Edit + Journal ://ptest.vire.ca/AgotesEdit.asp?ID=Services financiers Michel Kirouac inc. - C2944submit = Edit + Journal
LINKS I WANTS ://ptest%2Evire%2Eca/AgotesEdit%2Easp?ID=Ledoux%2C Lucien%2d C3918submit = Edit + Journal ://ptest%2Evire%2Eca/AgotesEdit%2Easp?ID=Service %2G%s financiers %2G% Michel Kirouac %2G%inc%2E %2d C2944submit = Edit + Journal
HERE IS MY CODE
sub test()
' Macro to Login to Virtgate if not already logged in --Open Virtgate
Set IE = CreateObject("InternetExplorer.Application")
With IE .Visible = True .navigate "mainpage"
' Loop until the page is fully loaded Do Until Not .Busy And IE.readyState = 4 DoEvents Loop
' Enter ID and password and submit them
<code style="margin: 0px; padding: 0px; border: 0px; vertical-align: baseline; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, serif; white-space: inherit; background-image: initial; background-attachment: initial; background-size: initial; background-origin: initial; background-clip: initial; background-position: initial; background-repeat: initial;"> Application.Wait Now + TimeValue("00:00:2") IE.document.forms(0).submit Do Until Not .Busy And IE.readyState = 4 DoEvents Loop Application.Wait Now + TimeValue("00:00:2")</code></pre>' Navigate to the main Journal Edit page ' example ://ptest.vire.ca/AgotesEdit.asp?ID=Leux, Luen- C918&submit=Edit+Journal
Dim broker As String
.navigat "://ptest.vire.ca/AgotesEdit.asp?ID=" & Names & "submit = Edit + Journal"
end sub
Thank you for your help
Here is the charaters i want to replace it is a tab ! " # $ % & ' ( ) * + , - . / here is the characters i want to have instead 21% 22% 23% 24% 25% 26% 27% 28% 29% %2A %2B %2C %2D %2E %2F
here is the column or tab with the strings I want to modify
977 B.C. Ltd. - 478 30 B.C. Ltd - 608 1tario Ltd. - 40456 1077369 Ontario Inc - 40920
LINKS TO CHANGE for example ://ptest.vire.ca/AgotesEdit.asp?ID=Leux, Luen- C918submit = Edit + Journal ://ptest.vire.ca/AgotesEdit.asp?ID=Services financiers Michel Kirouac inc. - C2944submit = Edit + Journal
LINKS I WANTS ://ptest%2Evire%2Eca/AgotesEdit%2Easp?ID=Ledoux%2C Lucien%2d C3918submit = Edit + Journal ://ptest%2Evire%2Eca/AgotesEdit%2Easp?ID=Service %2G%s financiers %2G% Michel Kirouac %2G%inc%2E %2d C2944submit = Edit + Journal
HERE IS MY CODE
sub test()
' Macro to Login to Virtgate if not already logged in --Open Virtgate
Set IE = CreateObject("InternetExplorer.Application")
With IE .Visible = True .navigate "mainpage"
' Loop until the page is fully loaded Do Until Not .Busy And IE.readyState = 4 DoEvents Loop
' Enter ID and password and submit them
<code style="margin: 0px; padding: 0px; border: 0px; vertical-align: baseline; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, serif; white-space: inherit; background-image: initial; background-attachment: initial; background-size: initial; background-origin: initial; background-clip: initial; background-position: initial; background-repeat: initial;"> Application.Wait Now + TimeValue("00:00:2") IE.document.forms(0).submit Do Until Not .Busy And IE.readyState = 4 DoEvents Loop Application.Wait Now + TimeValue("00:00:2")</code></pre>' Navigate to the main Journal Edit page ' example ://ptest.vire.ca/AgotesEdit.asp?ID=Leux, Luen- C918&submit=Edit+Journal
Dim broker As String
.navigat "://ptest.vire.ca/AgotesEdit.asp?ID=" & Names & "submit = Edit + Journal"
end sub
Thank you for your help