Se me ocurre que puede ser interesante copiar y pegar los comentarios que hacen los compañeros cuando comentan los códigos.
Había creado una pequeña aplicación pero no va como debiese. No me acorde de que esto es html y que por otro lado tiene otra
codificación de página.
La idea, no tener que nosotros añadir manualmente las ' por cada linea. Por otro lado podías decir, los comentarios en una ejemplo
no deberían ser muy grandes. Es que es para no perderme nada.
La imagen de proyecto es está, con una linea copiada desde el editor de la comunidad.
Y el código es este:
Public Sub Form_Open()
Me.Center
Me.Title = "Comentar textos para gambas"
End
Public Sub btnSalir_Click()
Me.Close
End
Public Sub btnPegar_Click()
TextArea1.Text = Clipboard.Paste()
End
Public Sub btnComentar_Click()
Dim contenido As New String[]
Dim x As Integer
contenido = Split(TextArea1.Text, "\n")
For x = 0 To contenido.Max
contenido[x] = "'" & contenido[x]
Next
TextArea2.Text = contenido.Join("\n")
End
Public Sub btnPegar2_Click()
Clipboard.Copy(TextArea2.Text)
End
Me.Center
Me.Title = "Comentar textos para gambas"
End
Public Sub btnSalir_Click()
Me.Close
End
Public Sub btnPegar_Click()
TextArea1.Text = Clipboard.Paste()
End
Public Sub btnComentar_Click()
Dim contenido As New String[]
Dim x As Integer
contenido = Split(TextArea1.Text, "\n")
For x = 0 To contenido.Max
contenido[x] = "'" & contenido[x]
Next
TextArea2.Text = contenido.Join("\n")
End
Public Sub btnPegar2_Click()
Clipboard.Copy(TextArea2.Text)
End
Os subo el mini-ejemplo para que lo modifiquéis a vuestro gusto y sobre todo dar ideas.
Entonces, claro el problema ya no va a ser solo la codificación de la página, además es que es html...habrá luego
que quitar los símbolos.
Saliudos
