Mensajes

Agregado a los ejercicios.

¡Gracias!

Hola

Código [Seleccionar] Expandir

Function cifrar(txt as string)
Dim x as integer, caracter as string, CodigoAscii as integer

cifrar="" 'aquí quedará el resultado
For x=1 to len(txt) 'para cada caracter
   caracter=mid(txt,x,1) 'aquí queda cada caracter del string
   CodigoAscii=asc(caracter) 'aquí queda su código ascii
   CodigoAscii=CodigoAscii-64 'hago la conversión
   caracter=chr(CodigoAscii) 'vuelvo a convertir a caracter
   cifrar=cifrar & caracter
next x
return

De hecho podrías añadir un parámetro mas para saber si hay que cifrar o descifrar

Código [Seleccionar] Expandir

Function cifrar(txt as string, DeseoEncriptar as boolean)
Dim x as integer, caracter as string, CodigoAscii as integer

cifrar="" 'aquí quedará el resultado
For x=1 to len(txt) 'para cada caracter
   caracter=mid(txt,x,1) 'aquí queda cada caracter del string
   CodigoAscii=asc(caracter) 'aquí queda su código ascii
   if DeseoEncriptar then 'si es que sí deseo cifrar
       CodigoAscii=CodigoAscii-64 'hago la conversión
   else 'deseo descifrar
       CodigoAscii=CodigoAscii-64 'realizo la conversión
   endif
   caracter=chr(CodigoAscii) 'vuelvo a convertir a caracter
   cifrar=cifrar & caracter
next x
return

Un saludo

Joerr!!!

No se en que pienso mientras escribo ...

Sorry

Otra forma simple es coger cada código ascii y jugar con él (por ejemplo hacerle un xor o algo así)

Si a cada código por ejemplo le restas 65 obtienes otro caracter diferente. Cuando tengas que descifrar solo tienes que ir leyendo y sumando 65 a lo que lees para obtener el valor real.

La imaginación al poderrrrrrrr

Perdón

No es delete file. Es kill

Código [Seleccionar] Expandir

kill file file1.path & "\" & file1.filename

Bueno, puse lo de cifrar para que tuvierais conciencia de que no de que no se deben guardar contraseñas en formato plano en estos sitios o en el registro. Es mejor acostumbrarse bien desde el principio.

cifrar en visual basic es otro problema. Para resolver este ejercicio basta con que dejes cambiado su código ascii o algo así.

Invéntate algo ja ja ja

Un saludo

Eso está bien.

Si quieres hacerlo en visual basic normal prueba con

Abrir archivo para leer
open "c:\config.ini" for input as #1

Abrir archivo para crearlo y borrarlo si existe
open "c:\config.ini" for output as #1

leer archivo
input #1, variable, variable2, ...

Escribir en archivo
write #1, variable, variable2, ...

Cerrar archivo
close #1

Las variables no pueden ser controles. Deben ser variables.

Un saludo

Eliges un archivo en file1.

Al pinchar allí en un archivo tienes en file1.path la dirección del archivo y en file1.filename su nombre.

El nombre completo será entonces file1.path &"\" & file1.filename

así que borrarlo sería algo como

Código [Seleccionar] Expandir

delete file file1.path & "\" & file1.filename

por ejemplo

Hola
La lógica es la siguiente

Tienes un control llamado 'drive1', otro llamado 'dir1' y otro llamado 'file1'

Cuando cambias de unidad debe cambiar dir1 (y ponerse en la carpeta raíz) y cuando cambias de carpeta debe cambiar file1 (y mostrarte lo que allí hay)

Código [Seleccionar] Expandir

sub drive1_change()
dir1.path=drive1.drive 'poner el path de dir1 la unidad elegida
end sub

Código [Seleccionar] Expandir

sub dir1_change()
file1.path=dir1.path 'poner el path de file1 la carpeta elegida
end sub

¡Ya ves que simple!

Un saludo

Hola
No pasa nada con que lo hagas en visual basic scripts, pero no es lo mismo.

Al fin y al cabo se trata de aprender.

¡Hazlo de ambos modos!