|
ついでにこれも…。
クリップボードの文字列の重複行をひとつに纏める (uniq)
ソートを伴わない奴です。ソートのスクリプトをいじっただけです。
// uniqclipboard.uws - 'uniq'ing line in clipboard
// Auther:
// nullpage 2007/12/24
inbuff= GetStr(0) // クリップボードの文字列をコピー
outbuff= ""
lines=0 // 行数 (使ってませんが…)
If Length(inbuff)<1 Then Exit
Balloon.Set("Line:" + lines)
line= Token(Chr($0A),inbuff) + Chr($0A) // 1行取り出し
outbuff= outbuff + line
linet= line
lines= lines + 1
While Length(inbuff)>0 // 全部の行を処理するまで繰り返す
Balloon.Set("Line:" + lines)
line= Token(Chr($0A),inbuff) + Chr($0A) // 1行取り出し
If line<>linet Then outbuff= outbuff + line
linet= line
lines= lines+1 // 行数を数える
Wend
If lines<1 then Exit
SendStr(0,outbuff) // 実際のクリップボードに反映
Exit
Class Balloon
Dim _Wait= 0
Public Wait= 5
Procedure Balloon()
Thread This.Idol()
Fend
Procedure Idol()
While TRUE
Sleep(1)
If _Wait=0 Then Continue
_Wait= _Wait -1
If _Wait=0 Then Fukidasi()
Wend
Fend
Procedure Set(msg)
Fukidasi(msg,G_SCREEN_W,G_SCREEN_H)
x= G_SCREEN_W - Status(GetId(GET_FUKIDASI_WIN),ST_WIDTH)
y= G_SCREEN_H - Status(GetId(GET_FUKIDASI_WIN),ST_HEIGHT)
Fukidasi(msg,x,y)
This._Wait= This.Wait
Fend
EndClass
|
コメント（0）
