String Parse

[J]

Greetings All

Could someone help me figure out a working model to trim a
file being offered as a string in a URL?

Example: strFileUrl = http://www.web.com/doc.doc so that
something like strTrimmedURL (variable) would be available?
The goal would be for strTrimmedURL to = doc.doc
Please advise.

J

 

[Chip Pearson]

J,

Use the InStrRev function to find the last '/' character, then
use Mid to get the remaining portion of the string. E.g.,

Dim strFileUrl As String
Dim TrimmedURL As String
Dim Pos As Integer
strFileUrl = "http://www.web.com/doc.doc"
Pos = InStrRev(strFileUrl, "/")
TrimmedURL = Mid(strFileUrl, Pos + 1)
Debug.Print TrimmedURL


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Ron Rosenfeld]

Greetings All

Could someone help me figure out a working model to trim a
file being offered as a string in a URL?

Example: strFileUrl = http://www.web.com/doc.doc so that
something like strTrimmedURL (variable) would be available?
The goal would be for strTrimmedURL to = doc.doc
Please advise.

J

Perhaps this will give you an idea. Requires later version of Excel with VBA6

=====================
Sub foo()
Const strFileUrl As String = "http://www.web.com/doc.doc"
Dim Temp
Dim strTrimmedURL

Temp = Split(strFileUrl, "/")
strTrimmedURL = Temp(UBound(Temp))

MsgBox (strTrimmedURL)

End Sub
========================


--ron

 

[J]

Chip

you rock

J

-----Original Message-----
J,

Use the InStrRev function to find the last '/' character, then
use Mid to get the remaining portion of the string. E.g.,

Dim strFileUrl As String
Dim TrimmedURL As String
Dim Pos As Integer
strFileUrl = "http://www.web.com/doc.doc"
Pos = InStrRev(strFileUrl, "/")
TrimmedURL = Mid(strFileUrl, Pos + 1)
Debug.Print TrimmedURL


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com








.