situarme en x linea

CAR3S? · 11 Septiembre 2011, 20:10 PM

buenas, tanto tiempo :p

tengo un RichTextBox con mil lineas.

necesito situarme en la linea 500 , y mover el contenido de la linea 500 al RichTextBox2

alguna orientacion?

---

trato asi, pero no va,

Código (vb) [Seleccionar]

RichTextBox1 = LeeURL("*********")
'aca se carga con mil lineas
 Dim a() As String
 a() = Split(RichTextBox1)
 RichTextBox2 = a(1)

pero da mal, la primera linea dice

Código (html4strict) [Seleccionar]

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

y en el rich2 dice

MS

------------

ahora probe asi:

Dim a() As String
a() = Split(RichTextBox1.Text, vbNewLine)
RichTextBox2.Text = a(1)

y en el rich2 me aparecio el texto de la linea 656

---------------

Código (vb) [Seleccionar]


Dim src As String
src = LeeURL("*******************")
'carga mil lineas
RichTextBox1 = src
 Dim a() As String
 a() = Split(src, vbNewLine)
 Dim li As String
 li = a(5)
 RichTextBox2 = li

deberia mover la linea (4 o 5, creo que el 0 cuenta como una linea... la cosa es que no va ni a la 4 ni a la 5, va a la linea 660)......

Sanlegas · 11 Septiembre 2011, 20:39 PM

creo que el rt no divide por lineas, si no por numero de caracteres... podrias poner mas de tu proyecto, o fijate cuantos caracteres acepta por linea, luego haces un mid y listo

CAR3S? · 11 Septiembre 2011, 20:42 PM

ese es todo el proyecto xD

edit: reemplaze los rich por textbox's, y tampoco dá..

---

esta escrito de tal forma que los textboxs no soportan, los richbox si...

raul338 · 11 Septiembre 2011, 20:56 PM

Desde donde ves las lineas? Hay veces que algunos navegadores "acomodan" el codigo, solo fijate que recibes en el richtextbox y de ahi te fijas

CAR3S? · 11 Septiembre 2011, 20:57 PM

sisi, al richbox llega todo bien....

partamos desde ahi,

ahora lo que necesito es "COPIAR" la linea 500...

raul338 · 11 Septiembre 2011, 21:02 PM

Si tratas de separar por distintas constantes? (vbCr, vbLf) ?

CAR3S? · 11 Septiembre 2011, 21:03 PM

no entiendo, de que hablas? :l

--

ahora estoy generando un txt con el source de la web que baja (la web que tiene mil lineas) , y voy a probar ahora...

raul338 · 11 Septiembre 2011, 21:05 PM

(ejem, no hagamos de esto un chat

, lee bien y intenta probar)

prueba hacer

split(richtb.text, vbCr)
split(richtb.text, vbLf)

y similares

CAR3S? · 11 Septiembre 2011, 21:19 PM

Código (vb) [Seleccionar]


Private Sub Command1_Click()
Dim src As String
src = LeeURL("***************************")
RichTextBox1.Text = src
 Dim a() As String
 a() = Split(src, vbCr)
 Dim li As String
 li = a(5)
 RichTextBox2 = li


End Sub

Funciona? NO

-------------------

Código (vb) [Seleccionar]


Private Sub Command1_Click()
Dim src As String
src = LeeURL("***************************")
RichTextBox1.Text = src
 Dim a() As String
 a() = Split(src, vblf)
 Dim li As String
 li = a(5)
 RichTextBox2 = li


End Sub

Funciona? SI

alguien me explique porque xD!!!!!!?!??!?!?!?!?!

una pregunta

If RichTextBox2.Text = RichTextBox3.Text Then
status.Caption = "No hay actualizaciones disponibles"
Call Sleep(3000) 'espera por 3 segundos 'como para que vean que no hay ninguna act.

no cambia el status ....... que hay mal? |:

raul338 · 11 Septiembre 2011, 22:12 PM

De donde estas obteniendo es algun servidor UNIX/UNIX-Like

y a diferencia de windows, los saltos de lineas son vbLf (en windows es vbCrLf)