|
|
Postada em 15/11/2006 19:41 hs
Olá pessoal.... Preciso fazer assim: Tenho um texto de várias linhas num TextBox1, quero enviar todo o texto para outro TextBox2...até ai fácil...o problema é...para cada linha eu quero calcatenar algo no inicio da a linha EX: Tex1: Text2 VBWEB Sql = VBWEB VB6 Sql = Sql VB6 ASP Sql = Sql ASP Será que deu para entender....Na TextBox2 eu quero calcatenar "SQL" no inicio de cada linha, com a diferença que a partir de segunda linha tem que ficar com "SQL = SQL". Agradeço pela ajuda desde já !!!! |
|
|
|
|
|
|
|
Postada em 15/11/2006 22:25 hs
Vc quer concatenar e de uma vez só?? Humm... veja se dá certo ae: Dim sTexto as String Dim vMatriz as Variant Dim i as Long vMatriz = split (Text1,vbcrlf) For i = 0 to Ubound(vMatriz) IF i > 0 Then Text2 = "Sql = " & vMatriz(i) & vbcrlf Else Text2 = "Sql = Sql " & vMatriz(i) & vbcrlf Endif Next i at+ |
|
|
|
|
|
Postada em 16/11/2006 08:20 hs
ghost_jlp, valeu ... mais infelizmente não deu certo. Pois da forma que está acima ele apresenta sempre a ultima linha da text1. Eu preciso quew ele apresente todas as linhas da text1.... Valeu |
|
|
|
|
|
Postada em 17/11/2006 09:42 hs
Ixi... tava distraído. Qdo não testa acontece isso... heuhuehueheu...corrige para isto: Dim sTexto As String
Dim vMatriz As Variant
Dim i As Long
vMatriz = Split(Text1, vbCrLf)
For i = 0 To UBound(vMatriz)
If i > 0 Then
Text2 = Text2 & "Sql = Sql " & vMatriz(i) & vbCrLf
Else
Text2 = "Sql = " & vMatriz(i) & vbCrLf
End If
Next i AT+ |
|
|
|
