? And es como poner && , me extraña de vs xD q fumaste? xD jaj

Yo quiero saber una cosa, un char(numero) da una letra no? y si en el codigo hace un bucle para ir aumentando el valor de numero asi hace a, b,c,d ... ?

edit: Ah, creo q blackzero ya hizo eso q digo

pasa que nose como buscar (EN ESTE CASO) (Ya lei sobre mid y sobre replace "Ya sabia")

si no me equivoco mid se usa para ie a "x" punto y terminar en "y" punto
pero si hago
msgbox mid$(source,1) = replace$(mid$(source,1),"a",a.text)

me devuelve "True" (Creo que por los 2 unos), o sino "False"

.


En efecto SON OPERACIONES BINARIAS mas no Booleanas de hecho el resultado es Binario mas no Booleano, de forma habitual se usan para enmascarar Bits ( No los Bytes OJO )

por ejemplo

1 en binario es 00000001 si se le hace not 1 el resultado es -2 ya que se obtiene el complemento 1 ( hay un 2do complemento llamado Complemento 2 que es el Complemento 1 mas 1 en su ultimo bit ) del BINARIO pero en representacion negativa 11111110... Pueden usar la calculadora de windows o mi clase Operaciones aritmeticas con Hex, Oct, Binario y Decimal

Este tema se llama Bitwise Operation o en español pero mas cutre en mi forma de entender  Operador_a_nivel_de_bits

Operaciones con And


eso ya se lo dije inclusive le di codigo ¬¬"

P.D.: Desvie un poco el tema pero no creo que importe si se aprende algo más.

Temibles Lunas!¡.

HOLA!!!

Gracias Black

Aca un codigo mas simple y reducido.

El tema de esto es que tiene un Gran Gran problema, si yo en el codigo de la letra "a" pongo "b" me va a codificar la "a" como "b" entonces hay que tener cuidado.

Private Function Codificar(Source As String, CodeTable As String, SingleCodeLen As Long) As String
Dim X As Long
    If Not Len(CodeTable) = 26 * SingleCodeLen Then Codificar = "Error, Invalid CodeTable Length": Exit Function
    For X = 1 To 26
        Source = Replace$(Source, Chr(X + 96), Mid(CodeTable, X * SingleCodeLen - (SingleCodeLen - 1), SingleCodeLen))
    Next
    Codificar = Source
End Function
 
Private Sub Form_Load()
Debug.Print Codificar("abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ", 1)
End
End Sub
 

GRACIAS POR LEER!!!

HOLA!!!

Solucionado, ya funciona perfect XD.

Por si no se entiende, la funcion es asi:

Codificar(Source,CodeTable,SingleCodeLen)

donde:

Source = Cadena de texto a codificar.
CodeTable = Cadena de texto ordenada alfabeticamente con lo que queres que remplace.
SingleCodeLen = La longitud de cada codigo en la variable Codetable.

GRACIAS POR LEER!!!