tedhome
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.OpenTextFile ("new.txt", 1)
Do Until f1.AtEndOfStream
strNextLine1 = f1.Readline
arrServiceList1 = Split(strNextLine1 , ",")
str_new=arrServiceList1(0)
Set f2 = fso.OpenTextFile ("old.txt", 1)
Do Until f2.AtEndOfStream
strNextLine2 = f2.Readline
arrServiceList2 = Split(strNextLine2 , ",")
str_old=arrServiceList2(0)
if str_new=str_old then
For i = 1 to Ubound(arrServiceList2)
str_old=arrServiceList2(i)
elseif str_old=str_new then
Next
Loop
f2.close
else
Set sk= fso.OpenTextFile ("str_new.txt", 8, True)
sk.write str_new & vbcrlf
sk.close
For i = 1 to Ubound(arrServiceList1)
str_new=arrServiceList(i)
Set f2 = fso.OpenTextFile ("old.txt", 1)
Do Until f2.AtEndOfStream
strNextLine2 = f2.Readline
arrServiceList2 = Split(strNextLine2 , ",")
str_old=arrServiceList2(0)
if str_newn=str_old then
For i = 1 to Ubound(arrServiceList2)
str_old=arrServiceList2(i)
elseif str_newn=str_old then
Next
Loop
else
Set sk= fso.OpenTextFile ("pre_itog.sms", 8, True)
sk.write str_new & vbcrlf
sk.close
end if
f2.close
f1.close
Next
loop
|
Всего записей: 23 | Зарегистр. 01-09-2006 | Отправлено: 13:44 07-03-2007 | Исправлено: tedhome, 15:21 07-03-2007 |
|
