Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: asdexiva en 9 Noviembre 2013, 20:10 pm



Título: borrar string con for
Publicado por: asdexiva en 9 Noviembre 2013, 20:10 pm
es posible borrar un string con for
por ejemplo tengo
Código:
 href="http: // sitio. any. gs"><img
lo que quiero es que desde las letras href asta <img  se borre todo y pueda remplazar por otra cosa
si me pudieran ayudar gracias


Título: Re: borrar string con for
Publicado por: Danyfirex en 9 Noviembre 2013, 21:34 pm
que suerte/coincidencia hace unos días necesitaba hacer lo mismo y me arme esta función.


Código
  1. 'Ejemplo uso
  2. 'MsgBox (R_B("Hola soy: Daniel :)", ": ", " :)", "Pink"))
  3.  
  4.  
  5. 'replace_between
  6. Private Function R_B(cadena As String, str1 As String, str2 As String, strReemplazo As String, Optional Count As Long = -1) As String
  7. Dim Inicio As Long
  8. Dim Fin As Long
  9. Dim Largo As Long
  10. Dim sRemplazar As String
  11. Largo = Len(str1)
  12. Inicio = InStr(1, cadena, str1)
  13. If Inicio = 0 Then R_B = "": Exit Function
  14. Inicio = Inicio + Largo
  15. Fin = InStr(Inicio, cadena, str2)
  16. If Fin = 0 Then R_B = "": Exit Function
  17. sRemplazar = Mid(cadena, Inicio, Fin - Inicio)
  18. cadena = Replace(cadena, sRemplazar, strReemplazo, 1, Count)
  19. R_B = cadena
  20. End Function

saludos