Excepciones, o guardado en con nombre {\,/,:,*,?,",<,>}

[mrnovice]

Saludos foreros, surgió este incidente cuando trato de guardar un archivo con los carácteres mencionados en el título, se me trunca el proceso y no realiza los procesos correspondientes, y ese valor que obtengo para guardar el nombre del archivo, lo agarro de un valor de hecho el nombre del escáner. osea cualquier valor que reciba de una fuente A-> lo convierte a un nombre de un archivo nosé A.txt pero cuando sea A:i400 -> me queda A, ¿mé explico?

Hay una solución sencilla a este problema nosé emm excepciones ó algo similar sin tener que recurrir analizadores léxicos y sintácticos qué es eso lo que se me viene a la mente pero es un dolor de cabeza!

[[maeyanes]]

Hola...

El problema está que esos caracteres no son válidos para nombres de archivo en Windows...

Lo que podrías hacer es una función que elimine esos caracteres:

Código Delphi [-]
function CleanString(AStr: string): string;
const
  NoValid = '\/:*?"<>';

var
  I: Integer;

begin
  Result := '';
  for I = 1 to Length(AStr) do
    if Pos(AStr[i], NoValid) = 0 then
      Result := Result + AStr[i]
end;

De esta forma la cadena A:i400 quedaría como Ai400...

Saludos...

[mrnovice]

Lo voy a aplicar, en realidad veo que me va a solucionar un problemomón!