hola gente, estoy manejando una cadena que obtengo de la fuente de una pagina en html y lo printeo en un richtextbox, lo que quiero es que el salto de linea sea el delimitador usado en un split o for each, me da igual, el problema es que no me lo toma.. es como si fuera un string solo.
NumberFile = FreeFile
For Each daTos In Split(txtUrl.Text, vbNewLine + vbCrLf)
Open App.Path & "/Date1.txt" For Output As #NumberFile
Print #NumberFile, daTos
Next daTos
Close #NumberFile
Mi idea es el codigo html obtenido de la pagina guardarlo en un txt de la misma forma con los saltos de linea y eso pero no puedo.. me lo guarda pero es uuna cadena sola que sale con cuadrados q creo que son el salto de linea.
se agradece!
saluddd
Cita de: elezekiel en 9 Diciembre 2014, 00:50 AM
hola gente, estoy manejando una cadena que obtengo de la fuente de una pagina en html y lo printeo en un richtextbox, lo que quiero es que el salto de linea sea el delimitador usado en un split o for each, me da igual, el problema es que no me lo toma.. es como si fuera un string solo.
NumberFile = FreeFile
For Each daTos In Split(txtUrl.Text, vbNewLine + vbCrLf)
Open App.Path & "/Date1.txt" For Output As #NumberFile
Print #NumberFile, daTos
Next daTos
Close #NumberFile
Mi idea es el codigo html obtenido de la pagina guardarlo en un txt de la misma forma con los saltos de linea y eso pero no puedo.. me lo guarda pero es uuna cadena sola que sale con cuadrados q creo que son el salto de linea.
se agradece!
saluddd
Intentá con el delimitador Chr(13) => Split(..., Chr(13))
gracias por contestar, me hace exactamente lo mismo, incluso intente agregarle en conjunto chr(10) como fin de la cadena.. pero nada.
saludd!
Lo último que haría, es copiar el código de la página a un textbox y con un botón pasaría de letras a bytes y analizaría que es lo que "simula" (o lo que es) un cambio de línea.
Saludos.
y como podria pasar letras a bytes? alguna sugerencia =/
Hola.
¿No deberías utilizar como delimitador "<br/>" ó "<br>"?
Es posible que haya entendido mal lo que tratas de hacer.
Saludos.
Private Sub Command1_Click()
Dim zBytes() As Byte
zBytes = StrConv(Text1.Text, vbFromUnicode)
Stop
End Sub