Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to concatenate SDF files?
Message
De
01/10/2002 09:30:36
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
 
 
À
01/10/2002 03:40:26
Henry Ravichander
RC Management Systems Inc.
Saskatchewan, Canada
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00705004
Message ID:
00706330
Vues:
47
>Hi Nadya:
>
>I tried what you suggest. Did not get the error message, but nothing got copied either to the MyConCatfile. The files that need to be copied are sdf and MyConCatFile also should be an sdf file. Here is the current code,with minor variations from what Ed suggested to me.
>
>
LOCAL cConCatString, aBWFiles[1,5], nFiles, i
>
>cConCatString = ''
>nFiles = adir(aBWFiles, "c:\BW\Process*.dat")
>
>FOR i = 1 TO nFiles  && this avoids all copies if no files were found
>      cConCatString = cConCatString + FILETOSTR("c:\BW\" + aBWFiles[i,1])
>ENDFOR
>=STRTOFILE(cConCatString,'MyConCatFile.DAT',.F.)  && .T. would append to any existing MyConCatFile.DAT found
>RELEASE cConCatString  && releases the large string memory allocation
>
>Problem now is that nothing is being copied. Second the MyConCatFile appears as a text file and not an sdf type.
>
>Thanks
LOCAL array aBWFiles[1]
local lnFiles, ix
lnFiles = adir(aBWFiles, "c:\BW\Process*.dat")
erase ('MyConCatFile.DAT') && erase old if exists
FOR ix = 1 TO lnFiles  && this avoids all copies if no files were found
    strtofile(FILETOSTR("c:\BW\" + aBWFiles[ix,1]),'MyConCatFile.DAT',.t.)
ENDFOR
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform