the problem is that I have this filelist.txt  with LONG dir/filenames,
like:

c:\mydirectorya\subdirectorya\longfilename.txt
c:\mydirectoryb\subdirectoryb\longfilenameb.txt
c:\foobar\onetwothree.txt

c:\MYDIRE~1\SUBDIR~1\LONGFI~1.TXT
c:\MYDIRE~2\SUBDIR~2\LONGFI~1.TXT
c:\FOOBAR\ONETWO~1.TXT

I think the only correct way to do this  is to execute and analyze a system
DIR  for each row..
using  AWK, SED, or PERL
anyone knows how to do it?

I'm on Windows 2000,
w2k has   DIR /X for displaying SFN
w98 display SFN with a normal DIR
but both seems to not display the dir shortnames (perhaps you can see them
by executing a DIR for each dir/subdir in the row.. but I think it's a bad
method)

any idea?

However, I'm going to break my own rule about off-topic posts and suggest
that you look into one of the JP Software command interpreters - i.e., 4DOS,
4NT, or Take Command.  Personally, my choice is Take Command, which blends
nicely the attractiveness of a GUI with the power of a command line.  Since,
presumably, what you are doing is going to be inside some kind of batch
script anyway, you will probably find the increased power of the JP Soft
interpreters useful in other ways.

If this is a one-shot deal, it might be worth downloading it just for this.
(http://www.jpsoft.com)

This can be done, albeit slowly, with gawk (tested under NT4 SP5).

BEGIN { IGNORECASE = 1 }
{
  gsub(/^ *"|" *$/, "")
  n = split($0, lvl, "\\\\") # yes, 4 backslashes
  if (n == 1) {
    print
  } else {
    pn = lvl[1]
    s = ""
    for (m = 1; m < n; ++m) {
      s = s lvl[m] "\\"
      t = lvl[m + 1]
      cmd = "cmd /c dir /x \"" s t "*\""
      while ((cmd | getline) > 0) {
        if ($0 ~ " " t " *$") pn = pn "\\" $4
      }
      close(cmd)
    }
    print pn
  }

Sent via Deja.com http://www.deja.com/
Before you buy.

the problem is that I have this filelist.txt  with LONG dir/filenames,
like:

c:\mydirectorya\subdirectorya\longfilename.txt
c:\mydirectoryb\subdirectoryb\longfilenameb.txt
c:\foobar\onetwothree.txt

c:\MYDIRE~1\SUBDIR~1\LONGFI~1.TXT
c:\MYDIRE~2\SUBDIR~2\LONGFI~1.TXT
c:\FOOBAR\ONETWO~1.TXT

I think the only correct way to do this  is to execute and analyze a system
DIR  for each row..
using  AWK, SED, or PERL  and eventually a BAT file for speed (i.e. instead
of calling many times the "system" command in AWK)
anyone knows how to do it?

I'm on Windows 2000,
w2k has   DIR /X for displaying SFN
w98 display SFN with a normal DIR
but both seems to not display the dir shortnames (perhaps you can see them
by executing a DIR for each dir/subdir in the row.. but I think it's a bad
method)

'---- begin VBS ----
dim fso, infile, outfile

set fso = CreateObject("Scripting.FileSystemObject")

set infile = fso.OpenTextFile("d:\temp\filelist.lst", 1)
set outfile = fso.OpenTextFile("d:\temp\newflist.lst", 2, True)

do while not infile.AtEndOfStream
  outfile.WriteLine fso.GetFile(infile.ReadLine).ShortPath
loop

infile.Close
outfile.Close
'---  end VBS  ----

Perl could handle both infile and outfile as plain text files with
standard perl i/o. However, the ShortPath property of a Windows
Scripting Host File object should be the most expedient way to get the
8-dot-3 full pathname.

Note: almost certainly you have the Windows Scripting Host installed.
If not, it's a free download from Microsoft's web site.

Sent via Deja.com http://www.deja.com/
Before you buy.

: filenames for input
:
: the problem is that I have this filelist.txt  with LONG dir/filenames,
: like:
:
: c:\mydirectorya\subdirectorya\longfilename.txt
: c:\mydirectoryb\subdirectoryb\longfilenameb.txt
: c:\foobar\onetwothree.txt
:
:

:
: c:\MYDIRE~1\SUBDIR~1\LONGFI~1.TXT
: c:\MYDIRE~2\SUBDIR~2\LONGFI~1.TXT
: c:\FOOBAR\ONETWO~1.TXT

[snip]

: I'm on Windows 2000,

Very easy in Perl [UNTESTED CODE]:

#!perl -wi.bak
use strict;
use Win32;
while (<>) {
  chomp;
  print Win32::GetShortPathName($_),"\n";

I'm not really sure what you mean by "how can I execute function  at the
4DOS prompt?"

: filenames for input
:
: the problem is that I have this filelist.txt  with LONG dir/filenames,
: like:
:
: c:\mydirectorya\subdirectorya\longfilename.txt
: c:\mydirectoryb\subdirectoryb\longfilenameb.txt
: c:\foobar\onetwothree.txt
:
:

:
: c:\MYDIRE~1\SUBDIR~1\LONGFI~1.TXT
: c:\MYDIRE~2\SUBDIR~2\LONGFI~1.TXT
: c:\FOOBAR\ONETWO~1.TXT

[snip]

: I'm on Windows 2000,

Very easy in Perl [UNTESTED CODE]:

#!perl -wi.bak
use strict;
use Win32;
while (<>) {
  chomp;
  print Win32::GetShortPathName($_),"\n";

yes, I heard of it
but the problem is: how can I execute function  at the 4DOS prompt?  in a
brief search in 4dos help and on the web  I didn't find it...

what do you think about Harlan full-awk solution compared to the 4DOS
function?

    #!perl -wlp
    $_ = Win32::GetShortPathName $_

Here's a demonstration (ActiveState Perl run under the MKS KornShell):

C:/>cat spn.pl
#!perl -wlp
$_ = Win32::GetShortPathName $_
C:/>cmd /c dir /a:d /b /s | egrep ' ' | tail | spn.pl
C:\PROGRA~1\POWERQ~1\PARTIT~1\RESCUEME
C:\PROGRA~1\POWERQ~1\PARTIT~1\UTILITY\DOS
C:\PROGRA~1\POWERQ~1\PARTIT~1\UTILITY\NT
C:\PROGRA~1\POWERQ~1\PARTIT~1\UTILITY\MMOVER32
C:\PROGRA~1\POWERQ~1\PARTIT~1\RESCUEME\IMAGES
C:\PROGRA~1\POWERQ~1\PARTIT~1\RESCUEME\RESCUE
C:\PROGRA~1\ACDSee32\SHORTC~1
C:\PROGRA~1\MarkVis\WinNT
C:\MULTIM~1\Music
C:\MULTIM~1\Music\INTERA~1
C:/>cmd /c dir /a:d /b /s | egrep ' ' | tail

--
Jim Monty

Tempe, Arizona USA

You recommended Perl. Just so we're clear on your opinion: Is Perl
the handiwork of Lucifer and the embodiment of all that is evil in
the world, or is it a viable programming language alternative to
awk that fits neatly and naturally beside awk in any good programmer's
toolbox?

--
Jim Monty

Tempe, Arizona USA           Sauce to the goose is sauce to the gander.

You recommended Perl. Just so we're clear on your opinion: Is Perl
the handiwork of Lucifer and the embodiment of all that is evil in
the world, or is it a viable programming language alternative to
awk that fits neatly and naturally beside awk in any good programmer's
toolbox?

--
Jim Monty

Tempe, Arizona USA           Sauce to the goose is sauce to the gander.