如題, 要加長的話直接用 FileWrite 就可以了, 但是如果要減少長度好像不知要怎辦.

------
Jesse Chan

用 TFileStream 開檔，設 Size 即可。

以下是以前寫 GigaTailDelete 的程式片斷：

[code cpp]
// GigaTailDelete <2003-05-06>
// 用來刪除 giga 網站加料的檔案。
//----------------------------------------------------------------------------//
int __fastcall TForm1::FindTailPattern(AnsiString asFile,AnsiString asPattern,int iMoreByte,bool DeleteIt)
{
TFileStream *stm=NULL;
int iFoundLen=0;
int iLen=asPattern.Length();
if (FileExists(asFile))
{
try{
if(DeleteIt)
stm=new TFileStream(asFile,fmOpenReadWrite);
else
stm=new TFileStream(asFile,fmOpenRead | fmShareDenyNone );
}catch(...){
goto __return_FindTailPattern;
}
if(stm->Size<(iLen iMoreByte))
goto __return_FindTailPattern;

if(stm->Size<(iLen 3)) // 可能會有 0x0A 0x0D 0x00
goto __return_FindTailPattern;

char buf[MAX_TAIL_SIZE 1];
for(int iOffset=0;iOffset<3;iOffset ) // 多找找後面幾個
{
stm->Seek(-iLen-iOffset,soFromEnd);
stm->ReadBuffer(buf,iLen);
buf[iLen]='\0';
if(StrComp(buf,asPattern.c_str())==0) // FOUND
{
iFoundLen=iLen iOffset;
if(DeleteIt)
stm->Size=stm->Size-iLen-iMoreByte-iOffset;
break;
}
}
}

__return_FindTailPattern:
if(stm!=NULL)
delete stm;
return iFoundLen;
}
//----------------------------------------------------------------------------//
[/code]


■ VMASK - ViewMove Automation Software Kernel ■ VMIO-Server/SECS/GEM ■ dllee's blog ■ dllee's StatPlus ■

------
http://www.ViewMove.com

編輯記錄

謝謝.

------
Jesse Chan