RICHTEXTBOX SIN COMMONDDIALOG por blokes - VB-MUNDO

sirkain · #1 (**permalink**) 28-06-2006, 07:18:44

hola, tengo un problema
necesito guardar archivos RTF, y k al abrirlos mantengan el formato

el problema esta que necesito leer renglon por renglon los primeros 4 renglones y luego el resto (esto me fuinciona barbaro con texto comun) pero al leerlo de esta manera al archivo, no visualizo el texto enriquecido, sino k lo veo komo texto komun

lo de leer renglon a renglon, es por k en los primeros renglones se encuentran una serie de datos que debo usar para setear parametros; titulos, etc

tambien se me presenta el problema a la hora de guardarlo al archivo ya que solo se guardar un rtf sin perder formato mediante el maldito commonddialog y yo necesito poder guardar datos de distintos cuadros en los primeros 4 renglones y el resto todo junto.

ejemplo: un simple cancionero donde tienen cuadros de texto para 1-titulo, 2-autor, 3-albun, y 4-la letra del tema, o sea se pretende abrir el archivo, leer renglon a renglon los 3 primeros para ubicarlos en sus lugares y luego del 4to renglon en adelante para ponerlo en la letra, todo esto sin perder el formato de texto enriquecido al abrirlo y al guardarlo.

gracias por tu tiempo
saludos
pablo

J.M.Movilla · #2 (**permalink**) 28-06-2006, 22:39:49

Si usas el control RichTextBox, no tienes nada más que definir el nombre del fichero en que quieras grabar el texto enriquecido, y usar SaveFile para grabarlo:

Código:

    cFich = "Nombre_del_fichero.rtf"

    RichTextBox1.SaveFile cFich, rtfRTF

Y si quieres leer el fichero con formato:

Código:

    RichTextBox1.LoadFile cFich, rtfRTF

Para ir definiendo las líneas del texto, utiliza esta instrucción:

Código:

    pos = InStr(RichTextBox1, vbCr)

sirkain · #3 (**permalink**) 29-06-2006, 01:28:57

desde ya muchisimas gracias por tu tiempo, pero temo que no me a servido del todo (o no entendi nada)

los comandos loadfile y savefile, nunca los habia usado, pero acabo de probarlos y me agradan bastante,
pero el problema principal, es como postee antes, yo deseo unir varios RTBox en un archivo, y luego al abrir ese archivo necesito leer

renglon a renglon los primeros para hubicarlos en los RTBox correspondientes (esto lo he hecho siempre,) lo k nunca me funciono es

el hecho de que al cargarlo "desmembrado" pierde el formato enriquecido, o sea me queda en la fuente predefinida y yo lo k keria es

que me keden los colores, las fuentes, los tamaños.
por si no se entendio relee la parte del ejemplo del post original y mira la imagen de ahora

la verdad, aunque no me alla funcionado con tu respuesta, te estoy muy agradecido por la intencion de tratar de solucionarme el

problema, (ya se que se supone que los foros son para esto, pero en general pasan meses, o nunca llega una respuesta)
muchas gracias
un abrazo
pablo

PD: tal vez si me diste la respuesta que necesitaba, ya que no entendi muy bien como utilizar esto de la manera en que yo lo

necesito:

Para ir definiendo las líneas del texto, utiliza esta instrucción:
Código:
pos = InStr(RichTextBox1, vbCr)

o sea como selecciono que renglon leer?

J.M.Movilla · #4 (**permalink**) 29-06-2006, 10:58:43

Has de comprender la dificultad que encierra el tratar de dar soluciones prácticas con sólo bases teóricas...

Vamos a suponer que tú tienes un fichero de nombre Canciones.rtf.
Supongamos que el recuadro grande del gráfico "Canciones.jpg" que adjuntas es un RichTextBox al que le has llamado cTexto

Lees los datos de esta forma:

Código:

Dim pos as Long

cTexto.LoadFile "Canciones.rtf", rtfRTF

pos = InStr(cTexto, vbCr)
Text(0).Text = Left(cTexto, pos-1)
cTexto = Mid(cTexto,pos+2)

pos = InStr(cTexto, vbCr)
Text(1).Text = Left(cTexto, pos-1)
cTexto = Mid(cTexto,pos+2)

pos = InStr(cTexto, vbCr)
Text(2).Text = Left(cTexto, pos-1)
cTexto = Mid(cTexto,pos+2)

pos = InStr(cTexto, vbCr)
Text(3).Text = Left(cTexto, pos-1)
cTexto = Mid(cTexto,pos+2)

De esta forma obtendrás el valor para Text(0) que sería el Nombre del Tema, para el Text(1) que sería el Autor / Grupo, para el Text(2) que sería el Album y para el Text(3) que sería la Letra.

El valor restante de cTexto sería el texto que aparecería en el gran recuadro.

Esto, claro está, suponiendo que a los textbox les llames como yo te indico (Text(0), Text(1)...) En otro caso ya te encargarás de actualizarlo.