Cambiar Los Nombres De Los Archivos De Minúscula A Mayúscula O Viceversa


Subject: Cambiar Los Nombres De Los Archivos De Minúscula A Mayúscula O Viceversa
Hola!.

Ayer estuve probando a "poder" jugar en Linux a un viejo juego de Msdos muy conocido sin usar DosBox.
El juego es UFO, Enemy Unknow. En Linux existe un "clon" llamado OpenXcom.

OpenXcom

Había que copiar subdirectorios de recursos del juego original al directorio de recursos que usa el clon.
Al ejecutar dio error. Como imaginaba lo que era hasta más tarde por la noche lo cambie.

Parece que buscaba los nombre de archivos en "mayúsculas" y en el juego original los nombres están en minúsculas.
Y sabemos que Linux los diferencia.

De esta forma se puede convertir los nombres de los archivos que contiene un directorio a mayúsculas.

De minúsculas a mayúsculas
for FILE in * ; do mv $FILE `echo $FILE | tr '[a-z]' '[A-Z]'` ;


De mayúsculas a minúsculas
for FILE in * ; do mv $FILE `echo $FILE | tr '[A-Z]' '[a-z]'` ;


Más fue el interés de solucionar el problema que el jugar.

P.d Se que existe versión mas actualizada y que pide 4G y sistema de 64 bits. Prefiero lo clásico.
La saga es larga..

Saludos

Subject: Re: Cambiar Los Nombres De Los Archivos De Minúscula A Mayúscula O Viceversa
Usando gambas podría haber sido de una manera simple:

Public Sub Main()

Dim directorio As String

directorio = User.Home &/ "Prueba/JuegoMsdos/Ufo/routes/"
MinusAMayus(directorio)

End

Public Sub MinusAMayus(ruta As String)

Dim nomarchivo As String

For Each nomarchivo In Dir(ruta)
Copy ruta & nomarchivo To ruta & Upper(nomarchivo)
Kill (ruta & nomarchivo)
Next

End


A veces es mejor la forma mas fácil de entender el código, aunque pueda resultar un código más largo.

Saludos


Page 1 of 1


  
You cannot post new topics
You cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events

   

This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Generation Time: 0.0901s (PHP: -30% SQL: 130%)
SQL queries: 23 - Debug Off - GZIP Enabled