Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Add a comment to an Icetips ArticlePlease add your comments to this article.
Please note that you must provide both a name and a valid email address in order
for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!
Back to article list Search Articles Add Comment Printer friendly Direct link Par2: COPY('*.std','stdfiles.clm') 2003-07-16 -- Greg Berthume > COPY('*.std','stdfiles.clm')
>
> How can I do something like this in Clarion? API?
>
> Need to copy multiple files into a single file like you can in DOS.
Here's some code I whipped up that does the job if anybody else needs it.
Make sure you add the DOS driver to your app/project.
! Procedure Declaration:
MFileCopy PROCEDURE(STRING pFolder, STRING pFiles, STRING
pDestFile, BYTE pFlag, BYTE pEraseFile),LONG
! Globals
gDestFile CSTRING(128)
gCFile CSTRING(FILE:MaxFilePath)
! Usage Example:
E# = MFileCopy('c:\temp','*.asc','ascfiles.sav',1,1)
IF E#
STOP('MFileCopy Error: ' & E#)
END
STOP('MFileCopy Completed')
!---------------------------------------------------------------------------
-------------------------------!
MFileCopy PROCEDURE(STRING pFolder, STRING pFiles, STRING pDestFile, BYTE
pFlag, BYTE pEraseFile)
!---------------------------------------------------------------------------
-------------------------------!
CFile FILE,DRIVER('DOS'),NAME(gCFile),PRE(CFL),CREATE
Record RECORD,PRE()
Chunk STRING(128)
END
END
DFile FILE,DRIVER('DOS'),NAME(gDestFile),PRE(DFL),CREATE
Record RECORD,PRE()
Chunk STRING(128)
END
END
lFolder CSTRING(FILE:MaxFilePath)
lFiles CSTRING(20)
lFlag BYTE
lEraseFile BYTE
CFileQ QUEUE(FILE:Queue),PRE(CFQ)
END
CopyWindow WINDOW,AT(,,148,45),FONT('Tahoma',10,,),CENTER,GRAY,DOUBLE
IMAGE('cmspackage.ico'),AT(6,12),USE(?Image1)
STRING('Copying File
To ->'),AT(29,4),USE(?TransferString),TRN,FONT('Tahoma',10,,FONT:regular)
STRING(@s12),AT(92,4),USE(gDestFile)
PROGRESS,USE(?ProgressBar),AT(29,16,113,10),RANGE(0,100)
STRING('File:'),AT(29,31),USE(?String4)
STRING(@s20),AT(46,31,,10),USE(CFQ:ShortName)
END
CODE
lFolder = pFolder
lFiles = pFiles
gDestFile = pDestFile
lFlag = pFlag ! True if the DestFile needs to be deleted if
exists.
lEraseFile= pEraseFile ! True if erase source file after copying to
gDestFile?
SETPATH(lFolder)
IF ERRORCODE()
BEEP(BEEP:SystemExclamation) ; YIELD()
MESSAGE('The specified folder does not exist.'&|
'||Folder: ' & lFolder & '||The file copy did not occur.', |
'MFileCopy Error', ICON:Exclamation)
RETURN(1)
END
IF lFlag
REMOVE(DFile)
END
IF EXISTS(gDestFile)
OPEN(DFile)
IF ERRORCODE()
STOP('Destination File Open Error: ' & ERROR())
END
ELSE
CREATE(DFile)
IF ERRORCODE()
STOP('Destination File Create Error: ' & ERROR())
END
OPEN(DFile)
IF ERRORCODE()
STOP('DFile Open Error: ' & ERROR())
END
END
FREE(CFileQ)
DIRECTORY(CFileQ,lFiles,ff_:Normal)
IF RECORDS(CFileQ)=0
RETURN(2)
END
SORT(CFileQ,CFQ:ShortName) ! put the files in file name order
OPEN(CopyWindow)
?ProgressBar{PROP:RangeLow} = 1
?ProgressBar{PROP:RangeHigh} = RECORDS(CFileQ)
LOOP LP# = 1 TO RECORDS(CFileQ)
GET(CFileQ,LP#)
gCFile = CFQ:ShortName
OPEN(CFile)
SET(CFile)
LOOP
NEXT(CFile)
IF ERRORCODE()
CLOSE(CFile)
IF lEraseFile
REMOVE(CFile)
END
BREAK
END
DFL:Chunk = CFL:Chunk
APPEND(DFile)
IF ERRORCODE()
STOP('DFile Append Error: ' & ERROR())
CLOSE(CFile)
BREAK
END
END
?ProgressBar{PROP:Progress} = LP# ; DISPLAY
END
CLOSE(DFile)
CLOSE(CopyWindow)
RETURN(0)
Randy Goodhew adds:
NOTE: In your LOOP to get records...
APPEND(DFile) ! not adequate
use
APPEND(DFile,BYTES(NameOfRecord)) ! for variable length records
You can also increase the size of the DOS record to at least
the size of a small HD cluster, about 2048 or so.
Greg tested:
Looks like SIZE() is needed and not BYTES().
Today is November 21, 2024, 6:26 am This article has been viewed 35233 times.
|
|