0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
| | main();
function main(){
var sLine1; var sLine2; var iCnt1 = 0; var iCnt2 = 0; var iRet = 0;
var WSHShell = new ActiveXObject("WScript.Shell");
var sAll = GetSelectedString(0);
sAll = sAll.replace(/\r\n/g, '\n');
sAll = sAll.replace(/\r/g, '\n');
iStartRowLayout = GetSelectLineFrom();
iEndRowLayout = GetSelectLineTo();
bBoxSelect = (IsTextSelected() == 2);
CancelMode();
if (bBoxSelect){
Jump(iStartRowLayout, 0);
iStartRowLogical = ExpandParameter('$y');
Jump(iEndRowLayout, 0);
iEndRowLogical = ExpandParameter('$y');
if ((iEndRowLayout-iStartRowLayout) != (iEndRowLogical-iStartRowLogical)){
WSHShell.Popup("折り返し行を含む矩形選択範囲は,重複確認できません."
, 0, "重複確認", 64);
return false;
}
}
Jump(iStartRowLayout, 0);
BookmarkReset();
TraceOut('■"$F"', 1);
SearchNext('$', 0x14);
iCnt2 = sAll.indexOf('\n', iCnt1);
while (iCnt2 != -1) {
sLine2 = sAll.substring(iCnt1, iCnt2);
if (sLine1 == sLine2) { iRet++;
sRowFm = " ".substr(0, 6 - ExpandParameter("$y").length)
+ ExpandParameter("$y");
TraceOut("・(" + sRowFm + ",1 ): " + GetLineStr(0), 2);
BookmarkSet();
}
sLine1 = sLine2;
iCnt1 = iCnt2 + 1;
iCnt2 = sAll.indexOf('\n', iCnt1);
SearchNext('$', 0x14); }
SearchClearMark();
CancelMode();
Jump(iStartRowLayout, 0);
WSHShell.Popup("重複は " + iRet + " 行でした.", 0, "重複削除", 64);
}
|