Tema destacado: Personaliza-Escoge el diseño del foro que más te guste.
 Autor
|
Tema: situarme en x linea (Leído 496 veces)
|
CAR3S?
 Desconectado
Mensajes: 331
Level xXx
|
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)......
|
|
|
|
« Última modificación: 11 Septiembre 2011, 20:37 por nukje »
|
En línea
|
|
|
|
|
|
CAR3S?
Desconectado
Mensajes: 331
Level xXx
|
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...
|
|
|
|
« Última modificación: 11 Septiembre 2011, 20:51 por nukje »
|
En línea
|
|
|
|
|
raul338
|
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  |
|
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 331
Level xXx
|
sisi, al richbox llega todo bien....
partamos desde ahi,
ahora lo que necesito es "COPIAR" la linea 500...
|
|
|
|
|
En línea
|
|
|
|
|
raul338
|
Si tratas de separar por distintas constantes? (vbCr, vbLf) ?
|
|
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 331
Level xXx
|
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...
|
|
|
|
« Última modificación: 11 Septiembre 2011, 21:05 por nukje »
|
En línea
|
|
|
|
|
raul338
|
(ejem, no hagamos de esto un chat  , lee bien y intenta probar) prueba hacer split(richtb.text, vbCr) split(richtb.text, vbLf) y similares |
|
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 331
Level xXx
|
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? |:
|
|
|
|
« Última modificación: 11 Septiembre 2011, 22:10 por nukje »
|
En línea
|
|
|
|
|
raul338
|
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) |
|
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 331
Level xXx
|
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?
|
|
|
|
|
En línea
|
|
|
|
|
raul338
|
Para eso tienes que debbugear bien Fijate sobre Option Explicit |
|
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 331
Level xXx
|
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 (: |
|
|
|
« Última modificación: 11 Septiembre 2011, 22:31 por nukje »
|
En línea
|
|
|
|
|
raul338
|
Ya te iba a proponer eso Fijate que tambien hay otras implementaciones hasta usando API (para que sea mas exacta viste ) de BlackZeroX y otros |
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Leer un archivo con php línea a línea, pero desde abajo para arriba
Desarrollo Web
|
deya
|
5
|
1,696
|
5 Junio 2006, 15:49
por deya
|
|
|
|
[SOLUCIONADO] C++ : Guardar contenido de fichero en string línea a línea
Programación C/C++
|
^Winder^
|
2
|
3,941
|
18 Julio 2009, 20:38
por ^Winder^
|
|
|
Leer de la entrada estandar linea por linea
« 1 2 »
Programación C/C++
|
Delraich
|
15
|
2,124
|
6 Julio 2010, 19:53
por MIG80
|
|
|
|
JTextArea Número de línea e Ir a línea específica
Java
|
Leo Gutiérrez.
|
13
|
4,257
|
25 Octubre 2010, 18:35
por Darhius
|
|
|
|
Duda Leer Linea por Linea de Un textBox
Programación Visual Basic
|
NsTeam
|
2
|
1,405
|
1 Diciembre 2010, 02:58
por Stelio Kontos
|
 |
