Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер
Т.е. необходимо для списка сформировать другой список, содержащий недостающие в первом списке элементы?_Johm писал(а):Чаще необходимо достроить список не имея полного.
Код: Выделить всё
'==============================================================================
' Формирование списка отсутствующих в последовательности элементов
'==============================================================================
Option Explicit
'===== Изменяемые параметры ===================================================
Dim InFile, OutFile, Prefix, Postfix
With WScript
InFile = .Arguments(0)
OutFile = .Arguments(1)
Prefix = .Arguments(2)
Postfix = .Arguments(3)
End With
'==============================================================================
Dim Dic, FSO, List, l, i, m, Str, LenPrefix, LenPostfix
Set Dic = CreateObject("Scripting.Dictionary")
Set FSO = CreateObject("Scripting.FileSystemObject")
LenPrefix = Len(Prefix)
LenPostfix = Len(Postfix)
List = FSO.OpenTextFile(InFile).ReadAll
For Each l In Split(List, vbNewLine)
If (UCase(Left(l, LenPrefix )) = UCase(Prefix )) And _
(UCase(Right(l, LenPostfix)) = UCase(Postfix)) Then
m = CInt(Mid(l, LenPrefix + 1, Len(l) - LenPrefix - LenPostfix))
Dic.Add m, l
End If
Next
For i = Min(Dic.Keys) To Max(Dic.Keys)
If Not Dic.Exists(i) Then
Str = Str & vbNewLine & prefix & i & postfix
End If
Next
Str = Mid(Str, Len(vbNewLine) + 1)
FSO.CreateTextFile(OutFile, True).Write Str
Quit
Function Max(pArr)
Dim lE, lM
lM = pArr(0)
For Each lE In pArr
If lE > lM Then lM = lE
Next
Max = lM
End Function
Function Min(pArr)
Dim lE, lM
lM = pArr(0)
For Each lE In pArr
If lE < lM Then lM = lE
Next
Min = lM
End Function
Sub Quit
Set Dic = Nothing
Set FSO = Nothing
WScript.Quit
End SubКод: Выделить всё
"existing_files.txt" "missing_files.txt" "str _" "_ end.test"
Вообще-то я понял. И даже попытался пошутить в ответ.Batya писал(а):Вообще-то, это была шутка
Вахмурка писал(а):И даже попытался пошутить в ответ.
Ну, извини 
А если так:_Johm писал(а):a01
a02
a04
ab55
Код: Выделить всё
a5
a02
a04
a555
ab55
ab75
ac85Аааа, потомучто, если бы надо было последний и далее, то выделять надо с другого места.Batya писал(а):_Johm писал(а):
обрабатываются только первые три
А почему не последний один?
То, пусть и будет так: ничего не попадет в выходной файл, так как тук и так видно сколько всего, необходимость возникает, когда много однотипных файлов.Batya писал(а):А если так:Код:
a5
a02
a04
a555
ab55
ab75
ac85
Вот тут не знаю. Может быть и разное.Batya писал(а):А количество цифр в числовых последовательностях всегда одинаковое?
