|
ðïìîùê ôåëóô é ZIò îáèïäéôóñ ÷ ðòéìïöåîéé íÁËÒÏÓÙ íS-WÏrd ÄÌÑ ÏÂÒÁÂÏÔËÉ ÔÅËÓÔÏ×
óÏÈÒÁÎÉÔØ dÏÓ-ÆÁÊÌ × tÈt, ×ÙÄÅÌÉ× ÓÔÉÌÉ html-ÔÁÇÁÍÉ
FrÏm: íÁËÓÉÍ íÏÛËÏ×
Sub íáIN
åditFindFÏnt .òÏints = ``, .UndÅrlinÅ = - 1, .óÏlÏr = - 1, .StrikÅthrÏugh = - 1, .SuÒÅrsÓriÒt = - 1, .SubsÓriÒt = - 1, .îiddÅn = - 1, .SmÁllóÁÒs = - 1, .állóÁÒs = - 1, .SÒÁÓing = ``, .òÏsitiÏn = ``, .ëÅrning = - 1, .ëÅrningíin = ``, .ôÁb = `0`, .FÏnt = `(
åditRÅÒlÁÓÅ .Find = ``, .RÅÒlÁÓÅ = `i>^/i>`, .DirÅÓtiÏn = 0, .íÁtÓhóÁsÅ = 0, .WhÏlÅWÏrd = 0, .òÁttÅrníÁtÓh = 0, .SÏundsLikÅ = 0, .RÅÒlÁÓÅáll, .FÏrmÁt = 1, .WrÁÒ = 1
åditFindFÏnt .òÏints = ``, .UndÅrlinÅ = - 1, .óÏlÏr = - 1, .StrikÅthrÏugh = - 1, .SuÒÅrsÓriÒt = - 1, .SubsÓriÒt = - 1, .îiddÅn = - 1, .SmÁllóÁÒs = - 1, .állóÁÒs = - 1, .SÒÁÓing = ``, .òÏsitiÏn = ``, .ëÅrning = - 1, .ëÅrningíin = ``, .ôÁb = `0`, .FÏnt = `(
åditRÅÒlÁÓÅ .Find = ``, .RÅÒlÁÓÅ = `b>^/b>`, .DirÅÓtiÏn = 0, .íÁtÓhóÁsÅ = 0, .WhÏlÅWÏrd = 0, .òÁttÅrníÁtÓh = 0, .SÏundsLikÅ = 0, .RÅÒlÁÓÅáll, .FÏrmÁt = 1, .WrÁÒ = 1
åditFindFÏnt .òÏints = ``, .UndÅrlinÅ = 1, .óÏlÏr = - 1, .StrikÅthrÏugh = - 1, .SuÒÅrsÓriÒt = - 1, .SubsÓriÒt = - 1, .îiddÅn = - 1, .SmÁllóÁÒs = - 1, .állóÁÒs = - 1, .SÒÁÓing = ``, .òÏsitiÏn = ``, .ëÅrning = - 1, .ëÅrningíin = ``, .ôÁb = `0`, .FÏnt = `(nÏ
åditRÅÒlÁÓÅ .Find = ``, .RÅÒlÁÓÅ = `u>^/u>`, .DirÅÓtiÏn = 0, .íÁtÓhóÁsÅ = 0, .WhÏlÅWÏrd = 0, .òÁttÅrníÁtÓh = 0, .SÏundsLikÅ = 0, .RÅÒlÁÓÅáll, .FÏrmÁt = 1, .WrÁÒ = 1
åditFindFÏnt .òÏints = ``, .UndÅrlinÅ = - 1, .óÏlÏr = - 1, .StrikÅthrÏugh = - 1, .SuÒÅrsÓriÒt = 1, .SubsÓriÒt = 0, .îiddÅn = - 1, .SmÁllóÁÒs = - 1, .állóÁÒs = - 1, .SÒÁÓing = ``, .òÏsitiÏn = ``, .ëÅrning = - 1, .ëÅrningíin = ``, .ôÁb = `0`, .FÏnt = `(nÏrm
åditRÅÒlÁÓÅ .Find = ``, .RÅÒlÁÓÅ = `suÒ>[^/suÒ>`, .DirÅÓtiÏn = 0, .íÁtÓhóÁsÅ = 0, .WhÏlÅWÏrd = 0, .òÁttÅrníÁtÓh = 0, .SÏundsLikÅ = 0, .RÅÒlÁÓÅáll, .FÏrmÁt = 1, .WrÁÒ = 1
óhDÅfÁultDir `å:`, 0
FilÅSÁvÅás .NÁmÅ = `íïSîëïW.ôèô`, .FÏrmÁt = 2, .LÏÓkánnÏt = 0, .òÁsswÏrd = ``, .áddôÏíru = 1, .WritÅòÁsswÏrd = ``, .RÅÓÏmmÅndRÅÁdïnly = 0, .åmbÅdFÏnts = 0, .NÁtivÅòiÓturÅFÏrmÁt = 0, .FÏrmsDÁtÁ = 0
ånd Sub
õÂÉÒÁÎÉÅ ÌÉÛÎÉÈ ÐÅÒÅ×ÏÄÏ× ÓÔÒÏË É ÐÒÏÂÅÌÏ× × ÁÂÚÁÃÅ×
FrÏm: áquÁry@mÁil.ru
Sub òrÏbÅl()
Dim i ás LÏng
FÏr i = 1 ôÏ 100 `ëÁË ÕÚÎÁÔØ ÞÉÓÌÏ ÓÉÍ×ÏÌÏ× × ÔÅËÓÔÅ :(
`óÅÒ×ÉÓ => óÔÁÔÉÓÔÉËÁ => þÉÓÌÏ ÓÉÍ×ÏÌÏ×
nÅÈ:
SÅlÅÓtiÏn.íÏvÅ
If (SÅlÅÓtiÏn.ôÅÈt = ` `) ôhÅn
SÅlÅÓtiÏn.íÏvÅ Unit:=wdóhÁrÁÓtÅr, óÏunt:=-1
If (SÅlÅÓtiÏn.ôÅÈt = ` `) ôhÅn
SÅlÅÓtiÏn.DÅlÅtÅ Unit:=wdóhÁrÁÓtÅr, óÏunt:=1
ålsÅ
SÅlÅÓtiÏn.íÏvÅ
i = i + 1
ånd If
ånd If
If (SÅlÅÓtiÏn.ôÅÈt = óhr$(13)) ôhÅn
SÅlÅÓtiÏn.íÏvÅ Unit:=wdóhÁrÁÓtÅr, óÏunt:=1
i = i + 1
If (SÅlÅÓtiÏn.ôÅÈt = óhr$(13)) ôhÅn
SÅlÅÓtiÏn.íÏvÅ Unit:=wdóhÁrÁÓtÅr, óÏunt:=1
i = i + 1
GÏôÏ nÅÈ
ånd If
If (SÅlÅÓtiÏn.ôÅÈt = `@`) ôhÅn
SÅlÅÓtiÏn.íÏvÅ Unit:=wdóhÁrÁÓtÅr, óÏunt:=-1
i = i - 1
SÅlÅÓtiÏn.DÅlÅtÅ Unit:=wdóhÁrÁÓtÅr, óÏunt:=1
SÅlÅÓtiÏn.DÅlÅtÅ Unit:=wdóhÁrÁÓtÅr, óÏunt:=1
SÅlÅÓtiÏn.DÅlÅtÅ Unit:=wdóhÁrÁÓtÅr, óÏunt:=1
i = i + 3
GÏôÏ nÅÈ
ånd If
If (SÅlÅÓtiÏn.ôÅÈt > ` `) ôhÅn
SÅlÅÓtiÏn.íÏvÅ Unit:=wdóhÁrÁÓtÅr, óÏunt:=-1
i = i - 1
SÅlÅÓtiÏn.DÅlÅtÅ Unit:=wdóhÁrÁÓtÅr, óÏunt:=1
SÅlÅÓtiÏn.InsÅrtáftÅr (` `)
ålsÅ
SÅlÅÓtiÏn.íÏvÅ Unit:=wdóhÁrÁÓtÅr, óÏunt:=2
i = i + 2
If (SÅlÅÓtiÏn.ôÅÈt > ` `) ôhÅn
SÅlÅÓtiÏn.íÏvÅ Unit:=wdóhÁrÁÓtÅr, óÏunt:=1
i = i + 1
ånd If
ånd If
ånd If
NÅÈt
ånd Sub
LÁst-mÏdifiÅd: ôuÅ, 25 Jul 2000 07:20:44 Gíô ðïìîùê ôåëóô é ZIò îáèïäéôóñ ÷ ðòéìïöåîéé
äÏË. 125050
ïÐÕÂÌÉË.: 18.01.02
þÉÓÌÏ ÏÂÒÁÝÅÎÉÊ: 4
|
