Programación General > Pascal

 Preguntar Nombre Para Crear Un Archivo

(1/4) > >>

pere:
Mi problema esta vez es que quiero crear un archivo txt pero quiero ponerle yo el nombre directamente.
He creado una variable string para guardar un nombre en concreto, pero no se como asignársela al archivo para que éste se cree con el nombre de la variable string.

Podríais ayudarme? Ya he mirado en el buscador y no he encontrado nada que me ayudara pero sí otras cosas como el IOResult ('imprescindible en el hogar' jeje).

_.B._:
¡Saludos Pere!

Igual que para crear cualquier archivo, 'assign' recibe una dadena de caracteres como segundo parámetro, la cual puede ser cualquier variable.


--- Código: Text ---var    archivo : TEXT;    nombre : string; ... assign(archivo, nombre); 
¡A programar! :comp:

pere:
Gracias .B. pero...

Pues no me sale...
debería ser algo así:


 program cambiar_nombre;
var
archivo: text;
nombre: string;
begin
writeln ('dame nombre');
readln (nombre);
assign (archivo,'C:\xxx.txt');
assign (archivo, nombre);
rewrite (archivo);
close (archivo);
end.

sin la linea /assign (archivo, nombre);/ me he dado cuenta de que crea el archivo xxx pero con ella no me crea ni con el nombre xxx.txt ni con el que guardo en la variable nombre o sea no me crea nada 'jo¡¡¡ que lío'.
que es lo que está pasando? y como lo puedo solucionar?

Saiyan1:

--- Código: Text ---archivo: text;nombre: string; BeginWrite('Dame nombre: ');Readln(nombre); nombre:='C:\' + nombre +'.txt'); assign(archivo,nombre); Rewrite(archivo); {y comproba todo con los IOResult}close(archivo); 
fijate si te soluciona lo que pedis..

pere:
Gracias a los dos por contestar, la verdad saiyan es que esa manera tambien la había probado pero sin concatenar y por consiguiente 'el error'. :P

Nunca me acostaré sin saber una cosa mas muchas gracias por eso.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente