■スレッドリストへ戻る■ 全部 1- 最新50
MonaUtils
- 1 ：名無しさん ：2001/03/07(水) 00:07
- 誰もが書いて、なおかつ仕様がそれほど異ならない
共通の関数の仕様・実装をageましょう。リクエストもOK。
- 58 ：ふみもたたけし ：2001/04/08(日) 16:05
- http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/MonaUtils/Folders.pas.txt
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/MonaUtils/History.pas.txtmonazilla共通ディレクトリ管理クラスと
２ちゃんねるアクセス履歴管理クラスを作ってみた。
いきなり組み込むのもアレなんでレビューお願いします。
- 59 ：Dax ：2001/04/08(日) 22:37
- MonaUtils.pas には共通関数だけ入れて
クラスはそれぞれのユニットで提供ってのがよくない？
名付けてモナヂラ・ファンデーション・クラス(MFC)＜これは嘘。
- 60 ：>57 ：2001/04/08(日) 23:17
- >あと、https://とかftp://とかどうしよう。
２ちゃんではあまり見かけないから、あまり必要ないかも。
どっちかっていうと直リンはずしてある
ttp://, htp://, tp://に対応して欲しい。
いっそxxx:// -> http://強制変換がいいかも。
- 61 ：Dax ：2001/04/08(日) 23:23
- >>60 同意。
ttp:// , www. はサポートしたいね。
- 62 ：名無しさん ：2001/04/08(日) 23:31
- ここらへんは個別に対応すると無茶苦茶遅くなりそうだから
まず'://'で検索してその前後を検索してけばいいかもしれない。あとバグっぽいの発見
function AddHRefTag(s: string): string;
const
NORMAL_CHAR: string = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789:/.%?&#=-_~'; <-- '+'が抜けてる
var
url: string;
i: Integer;
idx: Integer;
begin
Result := ''; while True do begin
idx := AnsiPos('http://', s); if idx = 0 then begin
//リンクが無いーよ。
Result := Result + s;
Break;
end; Result := Result + Copy(s, 0, idx - 1); s := Copy(s, idx, length(s)); for i := 0 to Length(s) do begin idx := AnsiPos(s[i + 1], NORMAL_CHAR); <-- s[Length(s)+1]にアクセスする
- 63 ：Dax ：2001/04/09(月) 19:49
- >>58
アクセス履歴管理クラス使ってみました。
でも Delphi4だとコンパイルエラーだったよ。。悲しい。。(IncludeTrailingBackslash
- 64 ：Dax ：2001/04/09(月) 21:43
- >>58
環境変数ってWin9xは Autoexec.batに書いてリブートしなきゃ
いけないのかな？いちおそれでうまくいったけど他に方法あんのかな？
- 65 ：turbotypeD@monazilla.org(ｗ ：2001/04/10(火) 21:46
- IncludeTrailingBackslashのソース。function IncludeTrailingBackslash(const S: string): string;
begin
Result := S;
if not IsPathDelimiter(Result, Length(Result)) then Result := Result + '\';
end;
- 66 ：Dax ：2001/04/11(水) 17:16
- >>65
ありがと！
GetEnvはやっぱ Kylixに移植しにくい・・・
- 67 ：Dax ：2001/04/17(火) 15:13
- 条件コンパイル指令間違ってました
{$IFDEF WINDOWS}じゃなくて{$IFDEF MSWINDOWS}でした。
- 68 ：Dax ：2001/04/27(金) 12:19
- 久しぶりに関数を追加しました。
ほとんどモナプロ〜ラ〜とギコナビからの移植です。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/MonaUtils20010427.lzh 2001.04.27 TrimHRefTag作成
2001.04.27 DecodeHtmlEsc作成
2001.04.27 EncodeHtmlEsc作成
2001.04.27 ExtractHostDomain作成
2001.04.27 Get2chDate作成 < GikoNaviより
2001.04.27 ChooseString作成
2001.04.27 ExtractQuotedStr作成
2001.04.27 ExtractUrlLastPath作成
2001.04.27 IsNumeric作成 < GikoNaviより
2001.04.27 IsFloat作成 < GikoNaviより
2001.04.27 Fmt2chToDateTime作成 < Monaplorerより
2001.04.27 AddHRefTagをアップデート < GikoNavi a013より
2001.04.27 StrCount1作成 < Monaplorerより
2001.04.27 BackAnsiPos作成 < Monaplorerより
- 69 ：委員長 ：2001/06/18(月) 11:05
- MonaUtils 使わせて貰ってます。
お陰で随分と楽チン♪。
わざわざ説明するまでもないと思うけど、BCB5でMonaUtilsを使う方法を書い
ときます。
BCB5 で開発している人がいるのかどーかは知らんけど。 C:\Mona にMonaUtilsを解凍したとする。
1.コマンドプロンプトから、DCC32 -JPHNV C:\Mona\MonaUtils.pas を実行
2.C:\Mona に MonaUtils.hpp MonaUtils.obj MonaTest.hpp MonaTest.obj が
作られるので、開発中のプロジェクトのフォルダにコピペ。(他は無視)
3.プロジェクトにMonaUtils.objを追加。
4.関数を使いたいcppファイルの頭に、#include "MonaUtils.hpp" を追加。これでOK！(のハズ)
- 70 ：Dax ：2001/07/09(月) 22:34
- ヒロユキ氏作のhttp：//にリンクを追加する関数「AddHRefTag」を、
ttp：//でもリンクを追加するようにしてみました。
かなり冴えない修正ですが、、
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/MonaUtils20010709.lzh
- 71 ：名無しさん ：2001/11/01(木) 08:35
- 最新版落とせねーぞ。（・∀・）ゴラァ！
- 72 ：書記さん ：2001/11/01(木) 11:04
- すんません、新URLはこっちです。
http://members.jcom.home.ne.jp/monazilla/src/MonaUtils20010709.zipついでに現時点での最新もあげときます。
http://members.jcom.home.ne.jp/monazilla/src/MonaUtils20011101.zip
- 73 ：名無しさん ：2001/11/06(火) 09:32
- thx!
- 74 ：幸運の国 ：2002/02/06(水) 23:55
- http://members.jcom.home.ne.jp/monazilla/document/index.html
ここのページのリンクがNotFoundになってるとのことなんで再ｳﾌﾟしてみました。C＋＋でboard一覧を作成するクラスです。
http://www2.ocn.ne.jp/~luckland/sample_code.html
25KB
新着レスの表示
スレッドリストへ戻る 全部 前100 次100 最新50
0ch BBS 2004-10-30