NGワード">>"で始まる文字列をコメントとする機能を追加

diff --git a/AbonUnit.pas b/AbonUnit.pas
index 927c368..7ed4958 100644 (file)
--- a/AbonUnit.pas
+++ b/AbonUnit.pas
@@ -384,14 +384,20 @@ begin
                                buftoken := Copy(argline,1,pos-1);
                                Delete(argline,1,pos);
                                if Length(buftoken) > 0 then begin
-                                       bufstl.Append(buftoken);
+                    // >> \82Å\8en\82Ü\82é\83g\81[\83N\83\93\82Í\83R\83\81\83\93\83g\88µ\82¢\82Å\96³\8e\8b\82·\82é
+                    if AnsiPos('>>', buftoken) <> 1 then begin
+                                       bufstl.Append(buftoken);
+                    end;
                                end else if ( bufstl.Count = 0 ) then begin
                                        bufstl.Append('');
                                end;
                                pos := AnsiPos(#9,argline);
                        end;
                        if Length(argline) > 0 then begin
-                               bufstl.Append(argline);
+                // >> \82Å\8en\82Ü\82é\83g\81[\83N\83\93\82Í\83R\83\81\83\93\83g\88µ\82¢\82Å\96³\8e\8b\82·\82é
+                if AnsiPos('>>', argline) <> 1 then begin
+                               bufstl.Append(argline);
+                end;
                        end;
                        ret := bufstl.Count;
                        SetLength(Ftokens[index],ret);
@@ -449,6 +455,9 @@ begin
                trgLen := Length(target);
 
                for lines := 0 to High(Ftokens) do begin
+            if Length(Ftokens[lines]) = 0 then begin
+                Continue;
+            end;
                        hit := true;
                        bufline := target;
                        pts := PChar(bufline);

diff --git a/Giko.pas b/Giko.pas
index 9dc545a..e5c69fe 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -7173,7 +7173,7 @@ var
        ReadList                : TStringList;
        wordCount               : TWordCount;
 {$ENDIF}
-    id: String;
+    id, dateStr: String;
 begin
        No := KokoPopupMenu.Tag;
        if No = 0 then Exit;
@@ -7182,6 +7182,9 @@ begin
 
     id := GikoSys.GetResID(No, ThreadItem);
     if (id <> '') and (not IsNoValidID(id)) then begin
+        // \83R\83\81\83\93\83g\82Æ\82µ\82Ä\81A\83X\83\8c\83b\83h\96¼\82Æ\8d¡\93ú\82Ì\93ú\95t\82ð\92Ç\89Á
+        DateTimeToString(dateStr, 'yyyymmdd', Now);
+        id := id + #9'>>add ' + dateStr + ',' + ThreadItem.Title;
         if (GikoSys.FAbon.AddToken(id, invisible)) then begin
             GikoSys.FAbon.ReLoadFromNGwordFile;
             FActiveContent.Repaint := True;

diff --git a/gikoNavi.res b/gikoNavi.res
index 715566f..59b21fd 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ