insertar comillas al inicio y al final de cada linea

[alkonazul]

insertar comillas al inicio y al final de cada linea
en un txt de varias lineas USANDO...Visual Basic 6

parece tonto pero...el bendito pero , llevo 9 dias y aun no lo he logrado...
ANTES
esto es un ejemplo esto es un ejemplo
esto es un ejemplo esto es un ejemplo
esto es un ejemplo esto es un ejemplo
DESPUES
"esto es un ejemplo esto es un ejemplo"
"esto es un ejemplo esto es un ejemplo"
"esto es un ejemplo esto es un ejemplo"

Gracias les da un posible desempleado de mañana sino entrego esto pronto...
je je je

[oskarvisual]

Pero es algo simple, solo tienes que concatenar

Código vb:

texto = """" + Text1 + """"
 

También podrías preguntar para asegurarte que ya no contenga las comillas adelante o atrás con las funciones Left o Right...

Saludos...

[erbuson]

Hola:
Por lo que parece tienes un TextBox multilinea, entonces, deberás primero convertir las lineas del TextBox a una matriz cuyo separador es vbCrLf y después añadir las comillas a cada elemento de la matriz.

Por ejemplo, este sería el código insertado en un Command1, suponiendo que el TextBox se llama Text1

Código:

Private Sub Command1_Click()
  ' Creamos Matriz que contiene las Lineas del TextBox
  Dim Matriz() As String
  Matriz = Split(Text1.Text, vbCrLf)

  ' Añadimos Comillas delante y detrás
  Dim Linea As Integer
  For Linea = 0 To UBound(Matriz)
    Matriz(Linea) = Chr$(34) & Matriz(Linea) & Chr$(34)
  Next
End Sub

Adáptalo a tus necesidades.

Saludos