Поиск
Автор: Argo9. Доброго времени суток. Подскажите кто сталкивался. Есть такой код.
Sub XML_Replace()
Dim s, Stroka2 As String
Dim myRegExp As New RegExp
With myRegExp
.Global = True
.IgnoreCase = False
.MultiLine = False
.Pattern = ">\d{10}\d{12}|>\d{13}\d{15}((8|\+7)[\- ]?)?(\(?\d{3}\)?[\- ]?)?[\d\- ]{7,10}ПРАВЛЕНО\d{10}\d{12}ПРАВЛЕНО\d{13}\d{15}ПРАВЛЕНО((8|\+7)[\- ]?)?(\(?\d{3}\)?[\- ]?)?[\d\- ]{7,10}ПРАВЛЕНО
Изменен: 13.11.2019
Читать сообщение на форуме или сайте. ... , после того, как открою созданные txt файлы, вижу, что после последней ... новую строку. Необходимо, чтобы файлы txt создавались без этого переноса, так ...
Изменен: 29.07.2019
Читать сообщение на форуме или сайте.