Romul81
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: ''''''''''''''''''''''''''''''''
Function processLine(line, EOL)
Dim inputLn
Dim inputLnArr
Dim lb
Dim toDuplicate
Dim outputStr
toDuplicate = False
inputLn = line
inputLnArr = Split(inputLn, ";")
lb = LBound(inputLnArr)
For i = lb To UBound(inputLnArr)
If i = lb + 8 Then
If Trim(inputLnArr(lb + 5)) <> Trim(inputLnArr(lb + 7)) Or _
Trim(inputLnArr(lb + 6)) <> Trim(inputLnArr(i)) Then
toDuplicate = True
inputLnArr(lb + 7) = Left(Trim(inputLnArr(lb + 5)) & Space(Len(inputLnArr(lb + 7)) - Len(Trim(inputLnArr(lb + 5)))), _
Len(inputLnArr(lb + 7)))
inputLnArr(i) = Left(Trim(inputLnArr(lb + 6)) & Space(Len(inputLnArr(i)) - Len(Trim(inputLnArr(lb + 6)))), _
Len(inputLnArr(i)))
End If
End If
Next
If toDuplicate Then
outputStr = inputLn & EOL & Join(inputLnArr, ";") & EOL
Else
outputStr = TextPipe.subFilterEntireText(line & EOL)
End If
processLine = outputStr
End Function
sub startJob()
end sub
sub endJob()
end sub
function startFile()
startFile = ""
end function
function endFile()
endFile = ""
end function
'''''''''''''''''''''''''''''''' |
|
Всего записей: 1327 | Зарегистр. 03-03-2008 | Отправлено: 00:13 30-06-2017 | Исправлено: Romul81, 00:23 30-06-2017 |
|
