 Autor
|
Tema: problem al descifrar un texto y mas (Leído 5,884 veces)
|
c0rrupt_gamer
 Desconectado
Mensajes: 764
|
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: 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
|
|
|
|
|
En línea
|
|
|
|
la caca
Desconectado
Mensajes: 60
CACA COLA
|
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: 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...... 
|
|
|
|
|
En línea
|
algo huele mal.... firma "LA CACA"   |
|
|
c0rrupt_gamer
Desconectado
Mensajes: 764
|
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  |
|
|
|
|
En línea
|
|
|
|
Sancho.Mazorka
Desconectado
Mensajes: 480
Gamer & Programador
|
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
|
|
|
|
|
En línea
|
|
|
|
lumbreras
Desconectado
Mensajes: 7
|
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)
|
|
|
|
|
En línea
|
|
|
|
c0rrupt_gamer
Desconectado
Mensajes: 764
|
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. 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 |
|
|
|
|
En línea
|
|
|
|
c0rrupt_gamer
Desconectado
Mensajes: 764
|
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
|
|
|
|
|
En línea
|
|
|
|
c0rrupt_gamer
Desconectado
Mensajes: 764
|
Some good ideas around there? Significa si alguien tiene alguna idea por ahi...
|
|
|
|
|
En línea
|
|
|
|
|
 |
