Doc -> Txt (C++Builder 6.0)
| Код |
void __fastcall TfrmMain::doConvertFiles(AnsiString asFilePath) {
staInfo->SimpleText = "Файл: " + MinimizeName(asFilePath, staInfo->Canvas, 180);
//эти файлы не проверяем
AnsiString asExt = ExtractFileExt(asFilePath).UpperCase();
AnsiString asFileName = ExtractFileExt(asFilePath).UpperCase();
if (asExt == ".DOC" || asExt == ".RTF") { //ChangeFileExt( Application->ExeName, ".INI" )
//DOC -> TXT
Variant vWordBasic = Variant::CreateObject("Word.Basic");
////vWordBasic.Exec(PropertySet("Visible") << false);
//идем по процессам
PROCESSENTRY32 PC32;
HANDLE hnd = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if ((int)hnd == -1) {
return;
}
PC32.dwSize = sizeof(PC32);
int i = Process32First(hnd, &PC32);
bool bIsWordExists = false; //наличие WINWORD.EXE
while (bIsWordExists == true) {
while (i) {
// PID процесса берётся из PC32.th32ProcessID;
// Имя файла через ExtractFileName(PC32.szExeFile);
i = Process32Next(hnd, &PC32); //ShowMessage(AnsiString(PC32.szExeFile));
if (AnsiString(PC32.szExeFile).UpperCase() == "WINWORD.EXE") {
bIsWordExists = true;
}
};
}
CloseHandle(hnd);
vWordBasic.Exec(Procedure("FileOpen") << asFilePath); Sleep(SLEEP_TIME);
vWordBasic.Exec(Procedure("FileSaveAs") << ChangeFileExt(asFilePath, ".txt") << 3); Sleep(SLEEP_TIME);
vWordBasic.Exec(Procedure("AppClose"));
//сброс всяких read-only
FileSetAttr(asFilePath, 0);
//удаляем файл
do {
DeleteFile(asFilePath);
}
while (FileExists(asFilePath));
}
}
|
|
