掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
MS-WORDの文書ファイルを読込んでテキスト表示するには？ (ID:15530)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
確かに開けないですね… リンクを参考にしてググッとシンプルにしてみました。 Word2003で動作確認しました。 適切に例外処理を入れてくださいね。 function TForm1.LoadDoc8File(FileName: string):string; var F: File; W8ByteA : WideChar; WText : Widestring; Text : string; begin AssignFile(F, filename); Reset(F, 1); Seek(F, $A00); repeat BlockRead(F, W8ByteA, 2); if W8ByteA= WideChar($0D) then WText:= WText + #13#10 else WText:= WText + WideChar(W8ByteA); until (W8ByteA= '') ; Text := WideCharToString(PWideChar(WText)); CloseFile(F); result:=Text; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.