Richtexbox

[gasafonso]

Hola GEnte, tengo un pequeño probema, haber si alguien me puede ayudar

Yo tegno en un richtebox un contrato "modelo" el cual dice algo asi


" el dia <dia> del mes de <mes> de <año> el Sr <nombre1> y el Sr <nombre2> se dispone a alquilar la porpiedad sitada en la calle <callle> ..........................
.................................................. ....................................
.................................................. ......................................"

Bueno lo que yo quiero es que me reemplzae todos los <XXX> por variables o datos de la base de datos



gracias

[erbuson]

Hola:

Te cuento como lo tengo hecho yo y si te convence o no ya es cosa tuya, imagino que existirán otras posibilidades como en todo.
Debemos tomar como punto de partida cuales son los campos de la BBDD que se pueden utilizar, aparte de algunos campos a los que yo denomino especiales que son Datos de Sistema y no pertenecen a la BBDD

Fecha, Dia, Mes, Año (estos últimos los separo para permitir distintos formatos en los mismos Datos) podrían ser los Datos de Sistema

Yo hago mas o menos lo siguiente:

Dim Carta As String
Carta = Richt.Text
Carta = Replace(Carta, "<Dia>", VariableDia)
Carta = Replace(Carta, "<Mes>", VariableMes)
Carta = Replace(Carta, "<Nombre>", VariableNombre)
....

De este modo aunque tengas la misma variable en distintos sitios de la Carta se cambia en todos ellos.

Después, devuelves Carta al RichtText y asunto resuelto.

Si con esto no te resulta suficiente o te surge alguna duda, dímelo y comentamos mas.

Saludos

[gasafonso]

Amigo Erbuson no solo no me lo reemplaza sino que me cambia el formato del RtF

Se te ocurre otra cosa ?

yo lo probe con valores fijos, ej:

variableDni = 23455666
variablenombre = Pepe
etc, etc

[erbuson]

Hola:

Acabo de hacer un simple ejemplo que lo que hace es cargar en el control un documento creado previamente con el Wordpad, pero esto es indiferente, porque no me podría creer que no funcionase, la diferencia básica esta en que hay que usar la propiedad TextRtf del RichTextBox en lugar de la Text indicada anteriormente. La variable <Ano> esta así expresamente porque tuve problemas con <Año> tal vez porque la 'ñ' no es un cáracter muy estandar.

Esta es una imagen con el código y puedes ver que funciona respetando tipos de letra y lo que haga falta, como ves utilizo dos RichTextBox diferentes pero es para que quede mas claro el ejemplo ya que puede utilizarse sólo uno.




Pego aqui tambien el código por si algun día que a veces ocurre no aparece la imagen.

Código vb:

Private Sub Command1_Click()
  Dim Texto As String
  Texto = RichTextBox1.TextRTF
  Texto = Replace(Texto, "<Ciudad>", Text1.Text)
  Texto = Replace(Texto, "<Dia>", Format(Date, "d"))
  Texto = Replace(Texto, "<Mes>", Format(Date, "mmmm"))
  Texto = Replace(Texto, "<Ano>", Format(Date, "yyyy"))
  Texto = Replace(Texto, "<Nombre1>", Text2.Text)
  Texto = Replace(Texto, "<Nombre2>", Text3.Text)
  Texto = Replace(Texto, "<Firma>", "erbuson")
  RichTextBox2.TextRTF = Texto
End Sub
 
Private Sub Form_Load()
  RichTextBox1.LoadFile "C:\Documento.rtf"
End Sub
 

Saludos

[gasafonso]

Gracias Amigo, me resulto muy util


un abrazo desde la Argentina !!!!!! j aj a

[erbuson]

De nada, en lo que se pueda, por aqui andamos.
Saludos