problem al descifrar un texto y mas

[c0rrupt_gamer]

Y para detectarlo?
no me lo detecta.
En la parte del codigo de lo bloques IF/THEN he probado a hacer k si c es igual a vbcrlf y no funciona, lo mismo con vbnewline.


Y aun me ha salido otro problema! Komo esta parte no sabia como solucionarla, pense k de mientras seria weno ir poniendole opciones al text del tipo letra cursiva o negrita, tamaño fuente etc... Pero cuando intento cambiar el tipo de letra a cursiva me lo hace a todo el texto, no se como hacerlo para k sea solo a la parte seleccionada.

Se como cojer la parte seleccionada, meterla en una variable, esta pasarla un texto oculto y hacer el cambio a cursiva, pero al volver a ponerla en su sitio me vuelve a salir como antes y no en cursiva. Os dejo el codigo:

Código [Seleccionar] Expandir

Private Sub Command2_Click(Index As Integer)
Dim cursiva As String
cursiva = Mid(Text1.Text, Text1.SelStart + 1, Text1.SelLength)
ptxt.Text = cursiva
ptxt.FontItalic = True
Text1.SelText = cursiva
Command2(0).Visible = False
Command5.Visible = True
End Sub
explico: El command2 es el boton para convertir a letra cursiva, el command5 es para hacer la inversa, ptxt es un texto invisible y text1 es el texto donde se escribe

[la caca]

te recomeidno que antes que pases a lo de cursiva, negrita, etc termines con los primeros errores.

para que se valla abajo antes del [] podes usar el comando LEFT y que se guarde en una matriz de variables lo que resta despues del [], y despues:

Código [Seleccionar] Expandir

do until variable = Max 'Max vendira a ser la cantidad de lineas (tenes que declarar y hacer el codigo) jej
text1.text= variable(max) & vbcrlf
loop

bueno algo asi......  

[c0rrupt_gamer]

1º: Para hacer eso k dices hay k detectar el [] o salto de parrafo, k es justo donde fallo.

2º: No te ofendas, pero a mi eso de la matices de variables me suena a chino, Podrias darme una pekeña explicacion, plis?


de todas formas, gracias por contestar

[Sancho.Mazorka]

xq no probas que cuando tien que haber un punto y aparte que haga esto chr(13) & chr(10) esto crea un enter en el textbox en el label no hay problema. espero que te sirva responde para saber si te sirvio o no

Sancho Mazorka

[lumbreras]

en un post mio donde tambien pregunto ay pasteado codigo donde relaiza esta funcion de buscar y eliminar  ....
pasteo
Private Sub Command1_Click()
On Error Resume Next


    Dim sOriginal As String
    Dim sBuscar As String
    Dim sPoner As String
    Dim sbuf As String
    Dim fbuf As String
    Dim salto As Integer
    Dim contador As Integer
   

    sOriginal = Text2.Text
    sBuscar = "x"
    sPoner = "&H"
    salto = 1



    sbuf = Replace(sOriginal, sBuscar, sPoner, , , vbTextCompare)
   
    sBuscar = "\"
   
    sPoner = ""
   
    Text1.Text = Replace(sbuf, sBuscar, sPoner, , , vbTextCompare)
   

[c0rrupt_gamer]

Lo siento Sancho.Mazorka, pero tu solucion no funciona.


Pero la de lumbreras si!  MUCHAS GRACIAS!

al final la cosa era facil, si conocias la funcion claro. Lo unico k he tenido k hacer es reemplazar los saltos de parrafo antes de codificar el texto, y despues, al desencriptarlo, reemplazarlos de nuevo antes de pasar al textbox, ahora os pongo el codigo.

Código [Seleccionar] Expandir

Private Sub cmdDesencriptartxt_Click()
Dim re2 As String
clave = Mid$(Text1.Text, 2, 2)
Label1.Caption = "LOADING. . ."
DoEvents
For i = 5 To Len(Text1.Text)
    C = Mid$(Text1.Text, i, 1)
    Select Case C
    Case vbNewLine
        code = code & vbNewLine
    Case " "
        code = code & " "
    Case Else
        code = code & Chr$(Asc(C) + clave)
    End Select
   
Next
re2 = Replace(code, "{salto}", vbCrLf)
Text1.Text = re2
i = 1
C = ""
code = ""
cmdDesencriptartxt.Enabled = False
clave = 0
Label1.Caption = ""
End Sub

Private Sub cmdEncriptartxt_Click()
Dim re As String
Randomize timer
On Error Resume Next
Label1.Caption = "LOADING. . ."
DoEvents
r = Int(Rnd * 16) + 10
re = Replace(Text1.Text, vbCrLf, "{salto}")
For i = 1 To Len(re)
    C = Mid$(re, i, 1)
    Select Case C
    Case " "
        code = code & " "
    Case Else
        code = code & Chr$(Asc(C) - r)
    End Select
Next
Text1.Text = "[" & r & "]" & code
clave = r
code = ""
C = ""
r = 0
i = 1
cmdEncriptartxt.Enabled = False
cmdDesencriptartxt.Enabled = True
Label1.Caption = ""
End Sub


De nuevo, muchas gracias a todos los k habeis respondido en este tema, y en especial a lumbreras

saludos

[c0rrupt_gamer]

Hum! Aun sigo con el problema del estilo de letra... se cambiar el estilo de letra de todo el texto pero no encuentreo la manera de hacerlo solo en la parte seleccionada del texto.

Hasta el momento he conseguido aislar en una variable(o textbox oculto) la seleccion y cambiarle el tipo de letra(Solo en el textbox oculto) pero al volverlo a meter en su sitio con Seltext me encuentro con k vuelve a escribirse con el estilo y tipo de letra original!

Some good ideas around there?

saludos;D

[c0rrupt_gamer]

Some good ideas around there?

Significa si alguien tiene alguna idea por ahi...