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,
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
<!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
---------------
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)......
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 :P
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...
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 :P
sisi, al richbox llega todo bien....
partamos desde ahi,
ahora lo que necesito es "COPIAR" la linea 500...
Si tratas de separar por distintas constantes? (vbCr, vbLf) ?
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...
(ejem, no hagamos de esto un chat :xD, lee bien y intenta probar)
prueba hacer
split(richtb.text, vbCr)
split(richtb.text, vbLf)
y similares :P
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
-------------------
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? |:
De donde estas obteniendo es algun servidor UNIX/UNIX-Like :P y a diferencia de windows, los saltos de lineas son vbLf (en windows es vbCrLf) :P
ahhhhhhhhhh.......
nunca se me hubiera ocurrido xD
---
una pregunta
1label = status
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? |: ... seguro necesitan más codigo, pero ya revice todo y no veo nada mal , que puede ser?
Para eso tienes que debbugear bien :P
Fijate sobre Option Explicit :P
sip, uso option explicit
pero debugear nose, y nunca supe xD!!! (Antes de preguntar, entre al debug... veo una flechita en el form_load, nada más, ni idea que hay que hacer xD!!!! ahora miro algun tuto
saludos!
edit: enrealidad si lo cambia, pero tan rapido que no se ve....... alguna solucion? (Por eso uso sleep... pero se ve que se traba sin cambiar, nose)
--
mmm supongo que si reemplazo el sleep por alguna "PAUSA entre lineas" , funcionara....
---
dicho y echo,
:)
Llamada: Espera(5)
Sub Espera(Segundos As Single)
Dim ComienzoSeg As Single
Dim FinSeg As Single
ComienzoSeg = Timer
FinSeg = ComienzoSeg + Segundos
Do While FinSeg > Timer
DoEvents
If ComienzoSeg > Timer Then
FinSeg = FinSeg - 24 * 60 * 60
End If
Loop
End Sub
*Solucionado* , gracias por su ayuda (:
Ya te iba a proponer eso :xD
Fijate que tambien hay otras implementaciones hasta usando API (para que sea mas exacta viste :P) de BlackZeroX y otros