Advanced Search

Return to Snippet

Revision: 27683
at June 21, 2010 01:03 by Angelboy
Initial Code 
Private Sub Command1_Click()
Dim datos As String
Dim msg As String
Dim msgr As String
'datos
datos = "http://ildom.com/client/XML/es/errores.xml"
'hace un split e invierte los datos
msg = StrReverse(Split(datos, "http://ildom.com/")(1))

'otro split e invierte los datos
msg = StrReverse(Split(msg, "/")(0))

'otro split
msgr = Split(datos, "http://ildom.com/")(1)
'otro split .D
msgr = Split(msgr, msg)(0)

MsgBox msgr
End Sub
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Sacar direcctorio de una web X

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Visual Basic