Форум Приднестровья, форум ПМР

Форум Приднестровья, форум ПМР (http://forum-pmr.net/index.php)
-   Программы, софт (http://forum-pmr.net/forumdisplay.php?f=41)
-   -   Как удалить подстроки в txt или word файле (http://forum-pmr.net/showthread.php?t=112065)

PMR 22.06.2014 15:01

Как удалить подстроки в txt или word файле
 
Интересует, как без написания програмки удалить подстроки в txt или word файле?
Подстроки такого вида #пару_символов# :
текст #u2f3ceac6b7s# еще текст #u6220a2877es# #u6220a2877es# #u6220a2877es# еще текст еще текст еще текст # еще текст еще еще еще еще еще текст # еще текст #u6220a2877es#

Удалять по #*# нельзя, т.к. удалиться нужная подстрока # еще текст еще еще еще еще еще текст #

Duke_Cheb 22.06.2014 17:15

Re: Как удалить подстроки в txt или word файле
 
По-моему, только написанием макроса для Word'а.

TheTeacher 22.06.2014 17:26

Re: Как удалить подстроки в txt или word файле
 
AkelPad, EditPad или их аналоги, поиск и замена, заменить все

Duke_Cheb 22.06.2014 18:53

Re: Как удалить подстроки в txt или word файле
 
Накатал быстренько программу макроса, выполняющего эту фигню в MS Word:
Цитата:

Sub Макрос1()
'
' Макрос1 Макрос
'
'
' Открываем документ там, где он валяется на винте
Documents.Open FileName:="e:\primer.docx", ReadOnly:=False

' Активируем его
Dim aDoc As Document
Set aDoc = ActiveDocument


' Создаем два массива типа char: с исходным текстом и с текстом после обработки
' новый текст пока пустой
Dim r, txm
Set r = aDoc.Content
txm = ""


'перебираем все символы исходного текста
For i = 1 To Len(r)

' k - длина предполагаемого куска с #...текст...#
k = 1

' Eсли текущий символ #, ищем следующий знак #
If Mid(r, i, 1) = "#" Then
While Mid(r, i + k, 1) <> "#"


' Eсли # не закрыта второй #, оставляем ее
If i + k > Len(r) Then
GoTo 10
End If
k = k + 1
Wend
k = k + 1


' Tупо пропускаем все символы между ##, включая их самих
i = i + k -1
Else

' Добавляем текущий символ в конец массива txm
10 txm = txm + Mid(r, i, 1)
End If
Next i


' Очищаем весь документ
aDoc.Content.Select
Selection.Delete


' Вписываем в него новое содежимое, накопленное в txm, закрываем файли сохраняем его.
aDoc.Content = txm
aDoc.Save
aDoc.Close (SaveChanges)


End Sub
Исходный файл primer.dox:
Цитата:

#u2f3ceac6b7s# Жил был Вася #u6220a2877es#бухал много #u6220a2877es#...... #u6220a2877es# . Заработал цирроз #и помер # и помер. #Конец истории
Он же, после обработки:
Цитата:

Жил был Вася бухал много ...... . Заработал цирроз и помер. #Конец истории

PMR 24.06.2014 23:11

Re: Как удалить подстроки в txt или word файле
 
Дюк спасибо!
Я хотел примерно следующее, там кстати есть вопросик.

Цитата:

Sub Смайлы()
'
' Макрос1 Макрос
'

Application.Browser.Previous
Dim aDoc As Document
Set aDoc = ActiveDocument

' Создаем два массива типа char: с исходным текстом и с текстом после обработки
' новый текст пока пустой
Dim r, txm
Set r = aDoc.Content
txm = ""
dlina = 15

'перебираем все символы исходного текста
For i = 1 To Len(r)

' k - позиция внутри куска с #...текст...#
k = 1

simvol = Mid(r, i, 1)
smiles = ""
' Eсли текущий символ #, ищем следующий знак #
If simvol = "#" Then
While Mid(r, i + k, 1) <> "#" 'символы внутри #...текст...#
smiles = smiles + Mid(r, i + k, 1)

If k > dlina Then ' Eсли # не закрыта второй # и меньше dlina, оставляем ее
txm = txm + smiles
i = i + k + 1
GoTo 10
End If
k = k + 1
Wend
k = k + 1 ' зачем?

' Tупо пропускаем все символы между ##, включая их самих
i = i + k - 1
Else

' Добавляем текущий символ в конец массива txm
10 txm = txm + Mid(r, i, 1)
End If
Next i

' Очищаем весь документ
aDoc.Content.Select
Selection.Delete

' Вписываем в него новое содежимое, накопленное в txm, закрываем файли сохраняем его.
aDoc.Content = txm
End Sub

Duke_Cheb 24.06.2014 23:52

Re: Как удалить подстроки в txt или word файле
 
Цитата:

PMR писал (а) (Сообщение 267543)
k = k + 1 ' зачем?

' Tупо пропускаем все символы между ##, включая их самих
i = i + k - 1

А, это хвосты остались, пока я тестовый макрос гонял. Выложил рабочую версию, но не оптимизированную. Вместо этого должно быть просто:
Цитата:

PMR писал (а) (Сообщение 267543)
' Tупо пропускаем все символы между ##, включая их самих
i = i + k


PMR 25.06.2014 23:31

Re: Как удалить подстроки в txt или word файле
 
Интересно, как отработает скрипт на ворд файле в 3-4 метра.

Duke_Cheb 26.06.2014 00:13

Re: Как удалить подстроки в txt или word файле
 
Прогон только один идет, вложенный цикл строго на поиск "#...текст...#", поэтому, не думаю, что слишком долго.
1024*1024*4=4 194 304 символа. В Excel'е у меня вложенные циклы по 9 миллионов кругов гоняли - минут двадцать-тридцать занимало.

PMR 27.06.2014 13:47

Re: Как удалить подстроки в txt или word файле
 
Запустил дома на 10 метровый файл, 2 часа подождал, проц. загружен. Недождался.

Duke_Cheb 27.06.2014 18:48

Re: Как удалить подстроки в txt или word файле
 
Ну, а что ты хотел? :ab: Макросы на ВБейсике в Офисе работают в десятки тысяч раз медленнее, чем скомпилированные программы. Если бы файл был строго в .txt формате, можно было бы открывать файл, прямо с винта считывать побайтно, и тут же в другой, открытый на запись, сохранять.

PMR 27.06.2014 23:19

Re: Как удалить подстроки в txt или word файле
 
Цитата:

Duke_Cheb писал (а) (Сообщение 267826)
Макросы на ВБейсике в Офисе работают в десятки тысяч раз медленнее, чем скомпилированные программы.

Интересно почему? Ворд для макроса - среда выполнения. Считай как на явамашине прога отработает. Ну и откомпил бы ворд на лету макрос...
И какая разница, читать с txt, или ворд читает с родного ему doc(он же xml)?

Duke_Cheb 28.06.2014 00:38

Re: Как удалить подстроки в txt или word файле
 
Цитата:

PMR писал (а) (Сообщение 267842)
Интересно почему? Ворд для макроса - среда выполнения. Считай как на явамашине прога отработает. Ну и откомпил бы ворд на лету макрос...

Потому, что макрос отображает свою работу в окне Ворда в реальном времени. Если ты Run в визуале запустишь, естественно, он тебе не даст переключиться на окно Ворда до конца выполнения программы, либо до брейка - чтобы это увидеть, нужно макрос прямо из документа с горячей клавиши врубить. Даже если обрабатывается сторонний файл, не открываемый напрямую редактором, визуал все равно после выполнения каждого оператора передает управление на Windows API - отсюда и замедление работы в тысячи раз.
Цитата:

PMR писал (а) (Сообщение 267842)
И какая разница, читать с txt, или ворд читает с родного ему doc(он же xml)?

В *.txt текст идет сразу после заголовка файла.
Файл vasya.txt, считанный побайтно:
Цитата:

Вася - дурак!
Вот так!

С офисом все сложнее гораздо. И дело не только в кодировке. Содержимое, открытого в Ворде файла vasya.docx:
Цитата:

Вася - дурак!
Вот так!

Оно же, после копипаста в tinyMCE-редактор Джумлы, раскрытое в виде HTML-кода:
Цитата:

<p><!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:AllowPNG/>
</o:OfficeDocumentSettings>
</xml><![endif]--></p>
<p><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>RU</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:EnableOpenTypeKerning/>
<w:DontFlipMirrorIndents/>
<w:OverrideTableStyleHps/>
</w:Compatibility>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="--"/>
<m:smallFrac m:val="off"/>
<m:dispDef/>
<m:lMargin m:val="0"/>
<m:rMargin m:val="0"/>
<m:defJc m:val="centerGroup"/>
<m:wrapIndent m:val="1440"/>
<m:intLim m:val="subSup"/>
<m:naryLim m:val="undOvr"/>
</m:mathPr></w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>

Duke_Cheb 28.06.2014 00:39

Re: Как удалить подстроки в txt или word файле
 
Продолжение:
Цитата:

<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Обычная таблица";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:"Times New Roman";
mso-bidi-theme-font:minor-bidi;
mso-fareast-language:EN-US;**
</style>
<![endif]--></p>
<p class="MsoNormal">Вася – дурак!</p>
<p class="MsoNormal">Вот так!</p>
10 символов.

Duke_Cheb 28.06.2014 00:50

Re: Как удалить подстроки в txt или word файле
 
И, наконец, оно же, при побайтном считывании напрямую из файла (тут "Вася-дурак! Вот так!" вообще хрен знает где закодирован):
Цитата:

PK ! $‡‚Ѓ Ћ [Content_Types].xml ў( ґ”MOѓ@†п&юІWЫz0Ж”ц хЁM¬сј.CЩИ~dgыхпJKЄЎҐZЅђА2пыМ3ѓСJ—С<*kRЦOz,#m¦М,eЇ УЗш–E„ЙDi
¤l
ИFГЛ‹Бtн #Є6˜І"wЗ9КґАД:0t’[ЇE [?гNИ1~ЭлЭpiM вPi°баr1/C4^СгљДC‰,єЇ_¬јR&њ+•ЃHщВdЯ\в*CB•›w°PЇѓсV‡кд°Б¶о™ўс *ѓh"|xљ0шТъЊgVО5хђ—iбґy®$4х•љуV"e®Л¤9СB™яAлрп)jЭнЯ T(Жy’>vwгЄй¤¶Ш«нvѓ(¤SLѕю‚qWиёUоDXВыЛїQм‰w‚д4Sс^В ‰я0ЊFє"РјЯ\ыgsldЋYТdLјuHыГяўнЭ‚ЁЄc9>(hVDЫ€5Ћґ{ОоЄн –AЦвН7Ыtш яя PK ! ‘·у N _rels/.rels ў( Њ’ЫJA†пЯaИ**7Ы
"ТЩЮHЎw"л„™мwМ¤ЪѕЅЈ єPЫ^жфзЛOЦ›ѓ›Ф;§<ЇaYХ Ш›`GЯkxm·‹PYИ[љ‚g
GО°inoЦ/<‘”Ў<Њ1«ўві†A$>"f3°Ј\…ИѕTєђI SЏ‘МхЊ«єѕЗфWљ™¦ЪY
igп@µЗX6_Ц]7~
fпШЛ‰ИaoЩ.b*lIЖrЌj)х,l0П%ќ‘b¬
6аiўХхDя_‹Ћ…, Ў ‰Пу|uњZ^tЩўyЗЇ;!Y,**{ыCѓі/h> яя PK ! |;—9" № word/_rels/document.xml.rels ў( ¬“MO„0†п&юТ»V]ЌЩІ5Щ«®сЬ-Sh„–tЖюЅі
Кў.MfљѕПУI»ZїХUфЌі‚ҐqВ"°КеЖ‚=loO.Y„$m.+gA°ђ*ігЈХT’ В!,MѓQH±(XIФ\qЋЄ„Zbм°aG;_K
Ґ/x#Х“,Ђ/’dЙ**?ѓeѓМh“ж7щ)‹¶mИg;*Ќ‚k§ћk°4‚аDбf2Ґ/ЂЫwваЙшёВвЂBm”wи4ЕКХь“юAЅ^Њ#µаЈЎтFkPФЗяЬљтHxЊЊщЈиИ ЅAtх~9'ћВЃozWтnM§ОзtРОТVоЄћЗWkJвlN‰WШЭяz•Ѕж^„>\ц яя PK ! cJЄ Ц word/document.xml¤UKnЫ0ЭиTоmQ‰k;Bд iЬ ‹FЭ¬ZўdВIђґХt•¦(Р^$‹®єим+ф$кg'
‚|6ўDОјПЊH**ЙRgE•f‚ИлbдPЉ€с$@џЮw†ИС†р€¤‚У ]RЌЋFЇ_ж~$ВeF№q ‚k?—aЂжЖHЯuu8§СЭЊ…Jh›n(2WД1©›№{ШГЕ›T"¤ZЯ;ВWDЈ
.kЈ I9pЕBeДи®P‰›µXК KbШЊҐМ\6оЧ0"@KЕэJP§dSьRP5ФЄевЮ2уґЄ@Би*љ‚БхњЙ*ЌзўЃЕ y-iхђ‰U–Цq№фz-ѕЖтczpЄH*Ш¶ао)FT&eiYЫЯmWп"zш!3UG,DЈб1nsЦJ2ВxујТмvД Kюп3%–І‘#ЩЛРОщўБІу КpїШy»Цф“ Z[w:'’"'эу„Ef)(КЅћcяH4‚Гb&ўK;J'чб°‰>гѓЮЮсЙ ХS§4&ЛФШ•бЏЗЗE¦њ(›ЁК!%<ЃшIDyзbЉЬСЎ[-ГXGЫ3Zя\Яlѕm~8я®~9лЯ›п›«хНъП›aКјв)[ТцЖѓЂZЪNЊпLои*V
Ў
хЯНµі№nЪj€…=є¦†(,xKЖI•ы|&NHё°Ц¶±c5‘ҐзBµ¦Ў™ЁZз=*oI/|&УЇџГqпШ“2чзрЮоKF™| Сicц{6D±d*ѕ-tО„1"Ы®¦4†EoЂЅЋ’€BЕnЏЬЏ…0;џЙТџёdEЄ!HK‚u›RШ†ЫеL1k9e њN˜ Aд~їH‚о•¶‹ж•їМХТи? яя PK ! QбЮФЙ Ч word/theme/theme1.xmlмYПnEї#сЈЅ·±'ЌЈ:UмШ
ґiЈШ-кqјпN3»іљ'х*JЏH DAЁ\8 R‹ёґпа>C ЉФWа›™ЭхNјЎIAm¤zwцчэя3Ям^јt'bh—IyЬрЄз+"±П4ЮЌ^зЬІ‡¤ Вс 3“†7&Т»ґъо;сЉ
IDРЗr7јP©denNъ°Њеyћђћ
№€°‚[М
Юѕ››ЇT–ж"LcЕ8¶“o&?MOРхбђъД[Нш·‰•Ф>]НќdD_?ЭџLћLMћЮ…л'ры±ЎмT5…Лhі†ў|ЇGо(1,<hxуП›[Ѕ8‡WR"¦ЋЎ-Рuкъ/ҐK ;уF¦ъ№Рj§Vї°ћу7 ¦fqнv»Х®жь ы>Xnu)т¬u–«НЊgd/gy·*‹•љ‹/р_˜С№Юl63Ы,SІ—µьre©¶6џк^ ЩЛЕ|*№Цj-9xІшҐ|зB**©жв
(d4Ю™AлЂv:)ч2дlЈѕреJ
џў тlУ"†<V'НЅЯжўљђaEc¤Ж bЅ…Јѕ XД+ћШ%_О,iЩHъ‚&ЄбЅџ`(љ)їЏїсш!:ЬtёяубЅ{‡ы?ZFХЋѓ"Х уo?щуБ]фЗГЇћЯя¬/‹ш_шр—'џ–Ўњ¦к<ыьа·GПѕшичпо—АЧоб=‰®‘=ґН#0МxЕХњфЕй( z!¦EЉµ8ђ8ЖZJ я¶
фµ1fit=љДхаMн¤xytЫQёЉ‘ў%’Ї„‘Ьдњ5№(хВ-«ажЮ(К…‹Q·Ќсn™мЋќш¶G фХ,-Г[!qФЬb8V8 1QH?г;„”Xw‹RЗЇ›Ф\тЎB·(jbZк’н;Щ4%Ъ Дe\f3ДЫсНжMФд¬МкuІл"Ў*0+QѕG˜гЖЛx¤pTЖІ‡#VtшU¬В2%»cб qm© ТaµDК2љлм-э
†VцM6Ћ\¤Pt§ЊзUМy№ОwZ!Ћ’2l—ЖaыћЬЃЕh‹«2ш&w+DЯCp|lёoR в„ыеЭа
•¦ ўџЊDI,/одowМ†˜˜VMЮйХЌя®q3
ќЫJ8»Ж
*тЩ—Jф~S[цм^e5іq¤Q‡;Ъћ[\и›ЯќЧс(Ю"Pі[ФЫжь¶9{ящж|\=џ**KћvahРz±ѓ·ГЈOбCКXWЌ№*Н .a/t`Qу1‡T’џТ’.ueѓ@lhђакЄВn€в«ћfИ”u QВ%&Нr)oЌ‡ѓЂІGСE**H±ќDbµЙvyA/gg‘њЌС*0аLР‚fpRaR¦`Ы««jҐN,*jT3MТ‘–›¬]lсатЬ4XМЅ C‚СјјЇ ґh8ь`FЪп6FYXLО2D2Д’ЖHЫ=ЈЄ R–+3†h;l2иѓеKјVђVЧl_CЪI‚TW;F\ЅЧ‰R–БУ(·ЈеИвbqІн5јъв ьў‡|њ4ј!њ›б2J кRП•˜р~КWВ¦эK‹ЩTщ4љхМ0·ЄрjДъ**Ж`§$BЄu,C›жQљ,Ц’¬юу‹а Ці2 ¤ќL‹…eH†MрЈZ2_ѓ]XСѕі·i+е#ED7мЎ>‰mбЧ©
цЁ„Ч¦#иxw§Ѕm№Н9-єв3ѓіл˜%!NЫ*.С¬’-Ь4¤\sWPl+ХЭwzSLЙџ‘)Е4юџ™ўчx±0РрбmІАHWJГгB…єPRї#`ђ0 ЅІЮяВcH*x§m~ЩХї¶ж,SЦpЁTЫ4@‚В~¤BAИґ%“**/aVMч.Л’ҐЊLFФ•‰U»Ov лйё¤чv…ђк¦›¤mАаЋжџ{џVP?РCN±ЮњN–пЅ¶юйЙЗ3ецa3РdюПUМЗ ѓй®jй
y¶ч
С¦cV-«

кiЩїў
§ЬjmЗљ±x~1Sў8k1,жQп”ђюц?*|fїЋи
µЗ·Ў·"шёЎ™AЪ@VџіѓТ
Т.цapІ‹6™4+лЪttТ^Л6л3ћts№Gњ*5;IјOйм|8sЕ9µx–ОN=мшЪ® лj€мС…Ґav°1Ѓ1_ЦЉ_ѕxя6zѕ!Њ˜’&™а;–А0CwM@с[‰†tх/ яя PK ! чьЇЁd — word/settings.xmlґVЫnЫ8**/Рф\GІг&©6N‘¦q/€ЫE•~ %Т6Ю0¤¬ё_Я!)FН&-ъdjfО\‡>****+E¶c`№V‹|zPжS*¦\mщчлед$П¬#ЉЎ[д{fу·g/_њц•eОЎ™НР…І•lщЦ9S…m·L**
SЁ\kђДб'l
Iа¦3“VKCoёаn_МКт(ЬиEЮЃЄЙ[РVЇќ‡TzЅж-~ћ7"Ял¶“L№± &0*м–›јЙЯх†%n““ЭSEм¤Hvэґ|Кr(·Ч@пПIПи–Y‹’"–+ Wwn¦уЋоZ**Ђ*.bмВ»Bшґ§1s+а™vњвoЂ@3Аg!ЫкУFi Ќ@RхУy~†ЊъЎµМъК0hqHHЗІМЇ lM:б®IS;mРdG0юqyХн– iѓЪђ+ѕРКЃЙЋк/Ъ] г 2 яјлИД:rЉHМ(J~®4e9Є:аЉюЯ¦y@Иk5<HгЭN–&Xнц‚-1щљя`зЉ~о¬гИшАТ?Иа©˜т‘ївMЅЮ¶dДuШ¦ї,Lb)ёYq
џЕ9яi°"
СЏµйрMk—ЖP–іГЈт| ”7{–жІ,/ПcяоcNNКЛЗ5oжіуwЗѓ™
щИКЇ‡бм4ћьђ3 rAdњd+ї@%«nЮq•ф
ГК~ХФ]“”“ITXI„Xв-HЉPЁ¬(·ж=[·bE`3ъ,аQ)ЮёПwѕьmdрtgbґ€‰ГKб¦ущаЏ+wЕe’Ы®©JбшEХ)ъuЮ a1¶§Їѕб\µI3‚nтн»7ЕYЁэыВVДјмhТl¦‹\рНЦM=q~Q|gВGі™
єYРб—Ч…ТъКРz8xѓxD«б0К“мp”бЌvуQц:Й^ЏІЈ$Гw®Ї¶xУ@puѓл $Ѕ|*…Р=Ј“p‘?Е&Ш-1зк·"Т]WA0¬I›н*v‹ы“Qорщ6њJrлЧймИГkAцєsчlЅО›{ТЊGFu(юџ\ь¶n9 Т±ЮЛf\ВЇbв‚[W3ѓыЪiА’ГЉь'xяQњэ яя PK ! N ¬ word/webSettings.xmlЊРБJ1а»а;,№·Щ•"Іt· Rс"‚ъ ivvМdВLj¬OoЪЄ ^zЛ$™Џ™№ъ@_Ѕ‹ЈР©f^«
‚ҐБ…©SЇ/лЩЌЄ$™0O:µQ«ютb™Ы›gH©ь”Є(AZґќЪ¦[*ЕnЌМ)B(Џ#1љTJћ4~ЫЕ™%Њ&№Ќу.нхU]_«o†ПQhќ…;І;„ђЋэљБ‘‚l]”-џЈeв!2Y)ы ?yh\шeљЕ?ќeУј,ЈOйUЪ›ъxBЇ*ґнГ€НЖ—sіP**‰Џbrи>aM|Л”X®Ќ ч”џпKЎяdЬ яя PK ! **Ђ‰ґ := word/stylesWithEffects.xmlґ›mSЫ8ЗЯЯМ**ЏЯC дК4нPи3ґG МЅVl…h°-џЬ§ї•d+ЖЋгЭШ**UвXыЫХ®ю+ЁфбУK8П<I…Њжодxм:<т¤/ўЗ№ыpяхи/ЧI3щ,ђџ»Ї<u?**ьуЏ›у4{
xкЂЃ(=ЯДЮЬ]gY|>ҐЮљ‡,=…—ИT®ІcO†#№Z ЏЏ62сGУсd¬Љйс4Ъ%‹ћYкжВ¦5уX+™„,KЏeт8
Yт”ЗG`=f™XЉ@dЇ`**|Vљ‘s7OўуВЎ#лђrn*ю)G$Ќ(vpНИ+йе!Џ2 M%< d”®Eј
гPkвєtйy_ПaPѕ·‰'§
ћ
“ѓ«„m [ѓ
s;&Г7ѓВАМѓКп6«u‹“сѕ`ЉЊ(ЦЊo™Ґ'!‘5sШФT'ЦCџъю–И<¶оДўџ µлиЙЪRЛ’аЩшLЇјjh)Й@cй.Ц,ж®zзЧЏ‘LШ2 Џ6“SGU¤ы¤В—Ю_±<ИRх1№MЉЏЕ'эПWe©і9g©'Д=HX ь~ҐВ…o8Kі‹T°ќ_®Х[;їсТ¬bнір…;RДф?°щМ‚№;ќ–O.•oћ,z,џ%щСЭCХ“№ЛЈЈ‡…zґ»s— %G‹el¤Г,я*„ї >iWbжБК3l•q!P1e4*»У(љщp—«Йey&€6 °ЄYшX›qР&PЄ…Qlш–Їn¤чДэE_М]Н‚‡Ч·‰ђ ИиЬ**я^1бႇв»р**®Dсм!ZџяіжСCКэну__µ<=™Gё6УU¤ю—ЏЗJ& БtДT†Є aђЋ
G;”‹*7жAЌЄю["'&‡;)kОTKsґя{A:кј7hЄ"Є н’|=йoвґї‰wэMивн7ію^АF¦oFLmTЄџФLz¦шЄуpт~OЙЄЌ*кС(љО ЌйС(‰ОЌ
иСHxз€F~;G4Т№w„ЗґpХ«иDПjaЯ‹,аjь^љф”єўХ8·,aЏ ‹ЧЋj¬u·ч‰е"_f8Wµњ.–‹,‘j»Щ1#РќХТ=X“ї„сљҐvе] ћSЇ¶>О·DАцµхО_#&Ѕ1ЩЩВnжсµ|ћ8чьЕd”0ю§tf—Сй\ПґЮ€Зuж А®PµЬNШYЛ¤·П„±#R=**УYK(]ЖQ9<k©Лvг?ё/т°њДnдМи9!Н5„vqяќЄ5WWg*˜L» ‡ н#ь7Н…n_егїiEЪGшoЧЃцu**мП/Yi®аП*jyНИkчR2YеA№:еaF^БЃЃј€***”HМИ+шЌ|:ћї№aк”њ‹*Ћ( дtЉ^lшXИI©ЙЮ„9A5Ц”Ак§µYtпшіP¦6*ТvЇЩ№њOZf Zjэ+—YчzЪўyXКu.I№ѓЈќґ¬<,*Ё'Уп9оЧш ~ђ кЧ
–ъhЯуШћ€‡фoЋY–mУe‡VжY™-€ЦꛈэWЛкmЇ…fЯDPИ jцM…њќZ/і**Б¬o"X-]Ј=GUMҐEо›UђЭ "Fј aДFј ювЭ
Nј,І6XM*Љ7¤_ЎьЄoAUсFЂИЪ`Ф®ш›QЩчґ•эїЬ Ю
9AMсFPИЩioKїB©„ЛJ‚5Њx#@Г€74Њx#@Г€74Њx#@эЕ»2њx#Xdm° љZo€,ToHїBС†ќв*Wэoo…њ ¦x#(дмФХnR,r‚j,+Ю–~…RK7%ЁaДС0вЌ
#ЮР0вЌ хпnИpвЌ`‘µБjjUј І<XPUј І6мoЅ»x#(д5ЕA!g§&ЁVз,r‚j,+Ю–®—ЮвЌ йWQ"Fј
#ЮР0вЌ хпnИpвЌ`‘µБjjUј І<XPUј І6мoЅF~»x#(д5ЕA!g§&ЁVј,r‚j,+uЦ0вЌ йВм-Юђ~е ђ^E”4
#Ю€€†oЁїxwC†o‹¬
VS«вЌ ‘еБ‚ЄвЌ ‘µAќі…уўиг©“–"Аћ3(O5 ЃУ–$aЃEЂw|ЕёUИ»O‡ф–€-еЃ
сі”Oо`чIKЃ Qb©ЏtїкS:•‹'і=7 ояѕtѕ›0Ќqє¤ЮћјЃЫCХлBъz’є8~fЇ1\Щ‰Л“еК\RчєЉ+@ъNи5\bъ ЖЏєвпиыTЕEэ_¶~˜У¤xkАxpjeЬАґЧШнЭ‹Т©вьvіdЮ{ssЇ—™:тЅ ПГIГC3Ћ>,nІЦф._iOєѓ”,s…~ёЋ|lSЬѕ2Йт_˜1Я_т шБ5Ч™ЊЫ_
ш*3ЯNЖєГХL-e–Й°**|ўЂkOvЂњWќ1UнЕеб’'Еqт¶’›о˜jsЋµ%ыШYЮъUю”~ь яя PK ! !л зu Я docProps/core.xml ў( Њ’ЛNГ0EчHьCд**в$-EI*кЉJHЃШ{ЪљЖЩnУю=ОЈi#X°уМЬ9ћ№v>;€*Шѓ±\Й%QЊђT1.Чz[ОГ{XG$#•’P #X4+ЇЇrЄ3ЄјҐБ86р$i3ЄґqNg[єAlдТWКв|hЦXє%kАiЯbЋ0вnЂЎ€ЁG2: хОT-ЂQђОв$JрYлАыgC[№P
оЋЪпФЏ{Йfґ+кѓеѓ°®лЁћґcшщь±x~mW
№lјўЂКњСМqWA™гуСџмолЁлТCаФ qК”C¶mП)СXЅ…c*іѕmщ>–®ќА:JxuE¬[ш]q`Зћя;Я\c`П›џPNЫ{†РoУљЧ
,рvdќy§Кыдсi9Ge'У0ѕ
У»eљdйMЗџН:ЈюЖћ.!ъБюMњ$cв Р93ю’е яя PK ! '‘$3 I: word/styles.xmlґ›ЯSЫ8ЗЯoжюЏЯiHВ‘+УґCi{e¦нQsПЉ*MmЛg+оЇїХ К1ЖЋн]м>яР~ґЪХw• ЅyчGЮO™еJ'KъкШчdиP%wKяцжУСџѕ—‘„"Т‰\ъЏ2чЯЅээ·7чg№y ЊdоЃЃ$?‹ѓҐї5&=›Lт`+c‘їТ©LабFg±0p™ЭMb‘эШҐGЃЋSaФZEК< NfЗЗ§~a&ЈXС›Ќ
дмb™l?Йdu’oUљп*ЭS¬Эл,L3И<§гИЩ‹…JJ3У“†ЎX™ОхЖјg&®Gk
љOЏсSщ^њ]Ю%:лп~zвї…‘uрAnД.2№ЅМ®ІвІёВ?џtbrпюLдЃR70¤` V`луy’+ћH‘›у\‰ѓ·ц*ѓO‚ЬT¬ЅWЎт'–˜я6ЉhйПfы;¶ПоE"№ЫЯЛ vGЧ·Хћ,**™Э®м*5Ш]ъ";Zќ[ctsя·вnъМyёВ®¤"Ђ`Ђ±1’rДЌ”НБЩтЕ]\пмёЉќС
¬j.k#№™іr Oеж‹~ИpeаБТGЬјЅјК”О I—юлЧ– 7W2VџUJ;_Љ{·ЙV…тџ*Lns>Эяю “ї°и]b ы§М‚(?>2µi¦a#ьН6ЂДЃpT8ШЎќzкЌ»QЈвНчИ©‹бAКV
;Г=м'ЅЮ
Н¬GUР.«Їуб&N†›шcё LЮac±ЮРхЎq№QЙJzPЌ\тUЗaює#em‹Fх¶h$Mo‹FЋф¶h¤Do‹Fф¶hј ·E#ѕЅ-бмl®zНq4HыF™HЪцќ4(uE©с®D&о2‘n=[XлЭоЛХnmh]E9**№X®L¦“»ЮЃкl§о‹5щcњnE®`•Ф3фіЃCcW=Ю_™
{Qёдkш„“ѓ%м*ЃЬк(”™w#\DнїioеVЅќЦ/кnkјХKn/мґeРЫGВЩяўrѓОЙtЪвJџqRO[тІЭшWЄ]јВjдФй9#М5v±{€Nl€љі«Ч Љ®\р]@ы„ю»вВ·ocLйї+E/ґOиї+\/ґЏщС_¶Т|Ђ/*iz-ШsчBG:Ымўэ蕇**—љмI\Ъ'‰Д‚=ѓџЙ§wрНЌ’§мX<й(ѓВ‡ЈаdЈыВ JMц¦ЏШЄ±fЦ0*eЂШў{-*ы›· J—kНЮй<o(A¤5фчќ6эkиY‹жQ)— ь\’KЏF›·М<**И'Wп1Vш aђV
–ьh_у”5‘^,¶,—UУЋ¬М¶2— ^ ©nЦ_-і·=љu“@aЁY7 vtjµ¬¬›Цhu“Аj©н1Єj*З)vЭ¬‚К• БЈqД› Gј qД› .ЮэђсД›АbkC©©Uс&ЂрОWэTo€*
NнЉЯЊцu*t№Aј vЂљвM °ЈУ&ЮѕВЙ„«”:kс&ЂЖohс&ЂЖohс&Ђ†‹w?d<с&°ШЪPjjUј ¶<” Єx@ш
GЉ7Оъ_.Ю
;@Mс&PШС© j№H%°ШЄ±Jс&°рN2,LnЋSг€7БЈqД› Gј qД› .ЮэђсД›АbkC©©Uс&ЂШтP‚ЄвM ±µб xгdьевM °Фo…ќљ –:G`±Tc•вM`aѕo_y)€гС8вMрhс&ЂЖohёxчCЖo‹*
Ґ¦VЕ› bЛC ЄЉ7ДЦ†ѓвЌsд—‹7ЃВPSј vtj‚ZЉ7ЃЕPЌUJЃ5Ћx@˜˜ѓЕ› ВW^ ВYД У8вMрhс&Ђ†‹w?d<с&°ШЪPjjUј ¶<” Єx@lm°ыlaї(y{кґ% Ёыц»ИАYKђЁАВБk№‘І’э»Cч2€-йAuсЅЦ?<ЪЖоyK‚ђQj)Ќ[єq—Nе В|Сq’ажппі; Уh‡)х|з
њЄВгIцафУ<¦pd'Эп,·ЦаЂђ=ЧUВ#r—p Hа‰{ДЮБуTЕAь—m„П Г6MJ°L ‡Ўє(З
LЛцwД>ќЅШwЄШяґXrп=ЫЊЩЩKc·|wхpЪиЎ7‹»Ё5ы‡Ї°'**ѓђ¬#w„> \&!8‡ сїb.Xбѓp¦ащ…ЊўЇ"іcmtЪюj$7Ж=ќc…«™ZkctЬЮ>Г
аШ“C жХОёKлD{2$»x-38БХ5ФіCнц±¶Dџ:КOэЪКЯю яя PK ! –ХvxД ў word/fontTable.xml¤’ЭnЈ0…пWЪw@ѕo° н¶Ё¤ЄШЌФ›ЅXµа8&XлдqВжн;Ш„^D•’.HОx3џОгУ?Јіѓф њ* [P’I+ЬVЩ]MЮ^Ч7ч$ѓАн–kgeMЋИУкы·ЗЎjќ
ђaї…К€љt!фUћѓи¤б°pЅґXlќ7<а§Яе†ыїыюF8Уу 6J«pМJпИdг/qqm«„ьйДЮHbоҐFGgЎS=њЬ†KЬз·ЅwBаОF'?Г•ќmXyfd”р\ёLћ& КG+lg4ѕM2#Є—ќuћo4ІXIVёlЁ,7(6\«ЌW±Рsл@2¬ё® -иљЮвsјKєџ$DЗ=Иp:Ш4In№QъxRaP ©Р« є“~а^ЌҐЁц°Ў5щЕ(ҐЕzM’ВjRўрЬМJЃCҐлa:іњL**вц**PAџ©‹ЋяМS tОHј*#!ы-‡мЏ3Ь~B¤ wHвyЊd–WсС7ј”^<Пыг&
*?оK6н‘дs9‘†Њя„ДH ‘‰\—ЌЇ‘8П-g6$b0Qя“Ќ)$°z яя PK ! Ёw)s З docProps/app.xml ў( њRЛNГ0ј#сQо*У‚B[WЁвАKj gЛЮ$ЋmЩnХю=›†† nшґ3kЏgЗ†еЎ5ЩCФО.тЩґИ3ґТ)mлEю^>Lnу,&a•0Ов"?bМ—ьтЮ‚ у’Ж˜‘„Ќ‹јIЙЯ1eѓ*€Sj[кT.ґ"5sUҐ%®ќЬµh›Е
ГCB«PMь ˜чЉwыф_Qеdз/~”GO†9”Шz#т—ОЋ™*—Z`ҐKВ”єE>#z р&jЊЧ°uAE~¬/`Х€ dўьшј 6‚pпЅСR$
–?k\tUК^OdЭq`г-@±lPо‚NGNRcOЪц6ъ‚lQб›oo‚ЌW4;Ї„‰м‡Ђ•kЅ°GN>Пй**Жw_єuО ч‘ЯдhЖ*NНЖI^жусґЈl(Tdя,чCА#=G0Эќ””*Qќчьmtщ**фя’П®§* S`gЋћdш0ь яя PK- ! $‡‚Ѓ Ћ [Content_Types].xmlPK- ! ‘·у N є _rels/.relsPK- ! |;—9" № Ю word/_rels/document.xml.relsPK- ! cJЄ Ц B word/document.xmlPK- ! QбЮФЙ Ч word/theme/theme1.xmlPK- ! чьЇЁd — word/settings.xmlPK- ! N ¬ Є word/webSettings.xmlPK- ! **Ђ‰ґ := Ю word/stylesWithEffects.xmlPK- ! !л зu Я К docProps/core.xmlPK- ! '‘$3 I: v" word/styles.xmlPK- ! –ХvxД ў Ц) word/fontTable.xmlPK- ! Ёw)s З К+ docProps/app.xmlPK s.


Duke_Cheb 28.06.2014 11:29

Re: Как удалить подстроки в txt или word файле
 
Цитата:

PMR писал (а) (Сообщение 267842)
Ну и откомпил бы ворд на лету макрос...

ВБейсик не компилятор, а интерпретатор. Разница существенная. Компилятор проверяет синтаксис на наличие ошибок, формирует в ОЗУ исполняемую программу, и запускает ее. Интерпретатор же считывает команды из среды программирования построчно и пытается сразу их выполнить. Вот, сколько повторов в цикле будет, столько же раз интерпретатор считает команду, проверит на ошибки, если их нет, выполнит команду, и по-новой.

PMR 28.06.2014 16:27

Re: Как удалить подстроки в txt или word файле
 
Тогда вопрос, как в макросах ворда сделать замену #????????????#, которая работает при замете с постановочными знаками? Типа регулярное выражение.

Duke_Cheb 29.06.2014 01:36

Re: Как удалить подстроки в txt или word файле
 
Конкретизируй задачу. Я не понял :ac:.

PMR 29.06.2014 23:49

Re: Как удалить подстроки в txt или word файле
 
Более частная задача, делать замены подстрок типа #123456789012# .
такие подстроки заменяются в ворде при:
заменить - больше - постановочные знаки и ввести
Цитата:

PMR писал (а) (Сообщение 267885)
#????????????#


Duke_Cheb 30.06.2014 00:28

Re: Как удалить подстроки в txt или word файле
 
На что заменяем известно? Строка как выглядеть будет, на которую заменяем?
-------- Добавлено в 23:28 -------- Предыдущее было в 23:23 --------
Этот блок:
Цитата:

' Tупо пропускаем все символы между ##, включая их самих
i = i + k

Меняем на:
Цитата:

' Tупо пропускаем все символы между ##, включая их самих, и вставляем вместо них #нужная строка#
txm = txm + "#нужная строка#"
i = i + k

Либо, в начале где-то определяем переменную:
Цитата:

Dim r, txm, ins
Set r = aDoc.Content
txm = ""
ins = "#нужная строка#"

А вышепреведенный код примет вид:
Цитата:

' Tупо пропускаем все символы между ##, включая их самих, и вставляем вместо них #нужная строка#
txm = txm + ins
i = i + k


PMR 30.06.2014 20:17

Re: Как удалить подстроки в txt или word файле
 
Да не, я под ??? имею виду любые символы, это считай регулярное выражение.
"?" заменяется на любой символ.
пример
#1er2fgh45n-u#


Текущее время: 00:59. Часовой пояс GMT +2.

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. Перевод: zCarot