String Parse

J

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
 
C

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
 
R

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
Click to expand...

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

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








.
Click to expand...
 
Top