Foro de elhacker.net

HOla a todos, puede que no haya escrito bien el título pero esque no sabía como decirlo  :P

A lo que vamos, yo necesitaría saber como:
- Al clickar un boton, INsertar 2 textos distintos (<!) y (!>) a un texto seleccionado por el usuario (seleccionado) que está dentro de un textbox


espero que me puedan ayudar porque no lo encuentro por ningun lado ;)


saludos

Tienes la gran suerte de que el visual basic, tiene un buén número de funciónes que pueden servir para tratar cadenas por ejemplo para remplazar texto, eliminar texto y si sabes programar te pueden servir para añadir texto.

Mira sobre las siguientes funciones:

- SPLIT()
- REPLACE()
- LEFT()
- RIGHT()

Cuando veas como funciónan, verás que lo que comentas no es tan dificil y con un poco de imaginación se puede hacer sin problemas. Si tienes dudas o cuando las úses no acaban de funcionar bien, postea el codigo y se te puede ayudar con los pequeños erróres.

Se me olvida comentar, para el texto que selecciona el usuario nunca lo he hecho, pero imagino que debe haber algún evento o propiedad para usar texto seleccionado, mira los eventos del raton y los de un Listbox por ejemplo, segúro que algo hay.

Ya lo encontré, esk lo tenia en algun lugar del pc pero no me acuerdo  :laugh: ;-)

gracias de todos modos ;)

ya que estas busca

MID ()
INSTR()
TRIM()

Y todas las otras funciones de manejo de strings :P  ::)

Ademas de las funciones de strings, que si bien... son utiles, yo lo haria algo asi :P

Option Explicit
' Agregar un TextBox y un CommandButton :P
Const sPrev As String = "<!-- "
Const sPost As String = " -->"
 
Private Sub Command1_Click()
    Dim iStart As Integer, iLen As Integer
    With Text1
        iStart = .SelStart
        iLen = .SelLength + Len(sPost) + Len(sPrev)
        .SelText = sPrev & .SelText & sPost
        .SelStart = iStart
        .SelLength = iLen
        .SetFocus
    End With
End Sub
 

:P

Lo hice mucho mas simple :P

solo 1 linea de code

saludos  ;D

Asi? :P

Option Explicit
Private Sub Command1_Click()
    Text1.SelText = "<!-- " & Text1..SelText & " -->"
End Sub
 

La diferencia es que en mi version se mantiene la seleccion por lo que se podra aplicar varias veces sin estar re seleccionando :P