| 173 |
idx: Integer; |
idx: Integer; |
| 174 |
idx1: Integer; |
idx1: Integer; |
| 175 |
idx2: Integer; |
idx2: Integer; |
| 176 |
|
n: Integer; |
| 177 |
tmp: string; |
tmp: string; |
| 178 |
URL: string; |
URL: string; |
| 179 |
Title: string; |
Title: string; |
| 225 |
|
|
| 226 |
if (tmp = 'おすすめ') or |
if (tmp = 'おすすめ') or |
| 227 |
(tmp = '特別企画') or |
(tmp = '特別企画') or |
| 228 |
//(tmp = 'まちBBS') or |
(tmp = 'まちBBS') or |
| 229 |
(tmp = 'チャット') or |
(tmp = 'チャット') or |
| 230 |
(tmp = 'お絵かき') or |
(tmp = 'お絵かき') or |
| 231 |
(tmp = '運営') or |
(tmp = '運営') or |
| 251 |
if i <> 0 then begin |
if i <> 0 then begin |
| 252 |
URL := Copy(tmp, 1, i - 1); |
URL := Copy(tmp, 1, i - 1); |
| 253 |
Title := Copy(tmp, i + 1, Length(tmp)); |
Title := Copy(tmp, i + 1, Length(tmp)); |
| 254 |
Board := BBSs[ 0 ].FindBoardFromTitle(Title); |
Board := BBSs[ 0 ].FindBoardFromTitle(Title); |
| 255 |
if Board = nil then begin |
if Board = nil then begin |
| 256 |
MessageMemo.Lines.Add('新板追加「' + Title + '(' + URL + ')」'); |
MessageMemo.Lines.Add('新板追加「' + Title + '(' + URL + ')」'); |
| 257 |
ini.WriteString(cate, Title, URL); |
ini.WriteString(cate, Title, URL); |
| 258 |
Change := True; |
Change := True; |
| 259 |
end else begin |
end else begin |
| 260 |
if Board.URL <> URL then begin |
if Board.URL <> URL then begin |
| 261 |
MessageMemo.Lines.Add('URL変更「' + Board.Title + '(' + URL +')」'); |
MessageMemo.Lines.Add('URL変更「' + Board.Title + '(' + URL +')」'); |
| 262 |
ini.WriteString(cate, Title, URL); |
ini.WriteString(cate, Title, URL); |
| 263 |
oldURLs.Add(Board.URL); |
oldURLs.Add(Board.URL); |
| 264 |
newURLs.Add(URL); |
newURLs.Add(URL); |
| 265 |
Change := True; |
Change := True; |
| 266 |
end else begin |
end else begin |
| 267 |
ini.WriteString(cate, Title, URL); |
ini.WriteString(cate, Title, URL); |
| 268 |
end; |
end; |
| 269 |
end; |
end; |
| 270 |
end else begin |
end else begin |
| 271 |
s := Copy(s, idx2 + 2, Length(s)); |
s := Copy(s, idx2 + 2, Length(s)); |
| 272 |
Continue; |
Continue; |