Форум ПМР
Форум Приднестровья, приднестровский форум свободного общения! Новости ПМР, погода в Тирасполе, курс валют ПМР, маршруты ПМР
Вернуться   Форум Приднестровья, форум ПМР > > > >
Программы, софт - Пишем про полезные и бесплатные программы, делимся где можно скачать программы бесплатно.

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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
 22.06.2014, 15:01  
По умолчанию Как удалить подстроки в txt или word файле
#1
  PMR PMR вне форума
  Администратор
 Аватар для PMR
Детали профиля (+/-)
Ответов: 42,087
Регистрация: 12.05.2008
Адрес: Тирасполь
Спасибо:4,663/4,982
Не понравилось:136/372
Репутация: PMR отключил(а) отображение уровня репутации

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

Удалять по #*# нельзя, т.к. удалиться нужная подстрока # еще текст еще еще еще еще еще текст #
________________
Судьба - совокупность совершенных глупостей человека. Любите и принимайте людей такими, какие они есть.
Если Вас оскорбили - нажимаем "Пожаловаться на это сообщение" слева от поста под аватаром хама.
  Вверх
 22.06.2014, 17:15  
По умолчанию Re: Как удалить подстроки в txt или word файле
#2
  Duke_Cheb Duke_Cheb вне форума
  The Scarecrow
 Аватар для Duke_Cheb
Детали профиля (+/-)
Ответов: 5,851
Регистрация: 26.03.2012
Спасибо:1,633/856
Не понравилось:33/2
Репутация: 5587

По-моему, только написанием макроса для Word'а.
________________
If you're playing Rock 'n' Roll, play It without lies.
Always be as brave and proud, like an eagle in the sky!
If you want to be remembered, there is one thing you should do:
When you play your music, gotto keep It true
!
© "Majesty"
  Вверх
 22.06.2014, 17:26  
По умолчанию Re: Как удалить подстроки в txt или word файле
#3
  TheTeacher TheTeacher вне форума
  Форумчане ПМР
 Аватар для TheTeacher
Детали профиля (+/-)
Ответов: 2,992
Регистрация: 14.07.2010
Адрес: Северная столица
Спасибо:850/1,375
Не понравилось:13/29
Репутация: 3776

AkelPad, EditPad или их аналоги, поиск и замена, заменить все
________________
Рыбницкая газета "Новости" http://r-novosti.idknet.com/
  Вверх
 22.06.2014, 18:53  
По умолчанию Re: Как удалить подстроки в txt или word файле
#4
  Duke_Cheb Duke_Cheb вне форума
  The Scarecrow
 Аватар для Duke_Cheb
Детали профиля (+/-)
Ответов: 5,851
Регистрация: 26.03.2012
Спасибо:1,633/856
Не понравилось:33/2
Репутация: 5587

Накатал быстренько программу макроса, выполняющего эту фигню в 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# . Заработал цирроз #и помер # и помер. #Конец истории
Он же, после обработки:
Жил был Вася бухал много ...... . Заработал цирроз и помер. #Конец истории

Последний раз редактировалось Duke_Cheb; 22.06.2014 в 19:10.
  Вверх
Сказал(а) cпасибо
PMR (24.06.2014)
 24.06.2014, 23:11  
По умолчанию Re: Как удалить подстроки в txt или word файле
#5
  PMR PMR вне форума
  Администратор
 Аватар для PMR
Детали профиля (+/-)
Ответов: 42,087
Регистрация: 12.05.2008
Адрес: Тирасполь
Спасибо:4,663/4,982
Не понравилось:136/372
Репутация: PMR отключил(а) отображение уровня репутации

Дюк спасибо!
Я хотел примерно следующее, там кстати есть вопросик.

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
  Вверх
 24.06.2014, 23:52  
По умолчанию Re: Как удалить подстроки в txt или word файле
#6
  Duke_Cheb Duke_Cheb вне форума
  The Scarecrow
 Аватар для Duke_Cheb
Детали профиля (+/-)
Ответов: 5,851
Регистрация: 26.03.2012
Спасибо:1,633/856
Не понравилось:33/2
Репутация: 5587

PMR писал (а) Посмотреть сообщение
k = k + 1 ' зачем?

' Tупо пропускаем все символы между ##, включая их самих
i = i + k - 1
А, это хвосты остались, пока я тестовый макрос гонял. Выложил рабочую версию, но не оптимизированную. Вместо этого должно быть просто:
PMR писал (а) Посмотреть сообщение
' Tупо пропускаем все символы между ##, включая их самих
i = i + k
  Вверх
 25.06.2014, 23:31  
По умолчанию Re: Как удалить подстроки в txt или word файле
#7
  PMR PMR вне форума
  Администратор
 Аватар для PMR
Детали профиля (+/-)
Ответов: 42,087
Регистрация: 12.05.2008
Адрес: Тирасполь
Спасибо:4,663/4,982
Не понравилось:136/372
Репутация: PMR отключил(а) отображение уровня репутации

Интересно, как отработает скрипт на ворд файле в 3-4 метра.
  Вверх
 26.06.2014, 00:13  
По умолчанию Re: Как удалить подстроки в txt или word файле
#8
  Duke_Cheb Duke_Cheb вне форума
  The Scarecrow
 Аватар для Duke_Cheb
Детали профиля (+/-)
Ответов: 5,851
Регистрация: 26.03.2012
Спасибо:1,633/856
Не понравилось:33/2
Репутация: 5587

Прогон только один идет, вложенный цикл строго на поиск "#...текст...#", поэтому, не думаю, что слишком долго.
1024*1024*4=4 194 304 символа. В Excel'е у меня вложенные циклы по 9 миллионов кругов гоняли - минут двадцать-тридцать занимало.
  Вверх
 27.06.2014, 13:47  
По умолчанию Re: Как удалить подстроки в txt или word файле
#9
  PMR PMR вне форума
  Администратор
 Аватар для PMR
Детали профиля (+/-)
Ответов: 42,087
Регистрация: 12.05.2008
Адрес: Тирасполь
Спасибо:4,663/4,982
Не понравилось:136/372
Репутация: PMR отключил(а) отображение уровня репутации

Запустил дома на 10 метровый файл, 2 часа подождал, проц. загружен. Недождался.
  Вверх
 27.06.2014, 18:48  
По умолчанию Re: Как удалить подстроки в txt или word файле
#10
  Duke_Cheb Duke_Cheb вне форума
  The Scarecrow
 Аватар для Duke_Cheb
Детали профиля (+/-)
Ответов: 5,851
Регистрация: 26.03.2012
Спасибо:1,633/856
Не понравилось:33/2
Репутация: 5587

Ну, а что ты хотел? Макросы на ВБейсике в Офисе работают в десятки тысяч раз медленнее, чем скомпилированные программы. Если бы файл был строго в .txt формате, можно было бы открывать файл, прямо с винта считывать побайтно, и тут же в другой, открытый на запись, сохранять.
  Вверх
 27.06.2014, 23:19  
По умолчанию Re: Как удалить подстроки в txt или word файле
#11
  PMR PMR вне форума
  Администратор
 Аватар для PMR
Детали профиля (+/-)
Ответов: 42,087
Регистрация: 12.05.2008
Адрес: Тирасполь
Спасибо:4,663/4,982
Не понравилось:136/372
Репутация: PMR отключил(а) отображение уровня репутации

Duke_Cheb писал (а) Посмотреть сообщение
Макросы на ВБейсике в Офисе работают в десятки тысяч раз медленнее, чем скомпилированные программы.
Интересно почему? Ворд для макроса - среда выполнения. Считай как на явамашине прога отработает. Ну и откомпил бы ворд на лету макрос...
И какая разница, читать с txt, или ворд читает с родного ему doc(он же xml)?
  Вверх
 28.06.2014, 00:38  
По умолчанию Re: Как удалить подстроки в txt или word файле
#12
  Duke_Cheb Duke_Cheb вне форума
  The Scarecrow
 Аватар для Duke_Cheb
Детали профиля (+/-)
Ответов: 5,851
Регистрация: 26.03.2012
Спасибо:1,633/856
Не понравилось:33/2
Репутация: 5587

PMR писал (а) Посмотреть сообщение
Интересно почему? Ворд для макроса - среда выполнения. Считай как на явамашине прога отработает. Ну и откомпил бы ворд на лету макрос...
Потому, что макрос отображает свою работу в окне Ворда в реальном времени. Если ты Run в визуале запустишь, естественно, он тебе не даст переключиться на окно Ворда до конца выполнения программы, либо до брейка - чтобы это увидеть, нужно макрос прямо из документа с горячей клавиши врубить. Даже если обрабатывается сторонний файл, не открываемый напрямую редактором, визуал все равно после выполнения каждого оператора передает управление на Windows API - отсюда и замедление работы в тысячи раз.
PMR писал (а) Посмотреть сообщение
И какая разница, читать с 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 в 01:05.
  Вверх
 28.06.2014, 00:39  
По умолчанию Re: Как удалить подстроки в txt или word файле
#13
  Duke_Cheb Duke_Cheb вне форума
  The Scarecrow
 Аватар для Duke_Cheb
Детали профиля (+/-)
Ответов: 5,851
Регистрация: 26.03.2012
Спасибо:1,633/856
Не понравилось:33/2
Репутация: 5587

Продолжение:
<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:46.
  Вверх
 28.06.2014, 00:50  
По умолчанию Re: Как удалить подстроки в txt или word файле
#14
  Duke_Cheb Duke_Cheb вне форума
  The Scarecrow
 Аватар для Duke_Cheb
Детали профиля (+/-)
Ответов: 5,851
Регистрация: 26.03.2012
Спасибо:1,633/856
Не понравилось:33/2
Репутация: 5587

И, наконец, оно же, при побайтном считывании напрямую из файла (тут "Вася-дурак! Вот так!" вообще хрен знает где закодирован):
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.

  Вверх
 28.06.2014, 11:29  
По умолчанию Re: Как удалить подстроки в txt или word файле
#15
  Duke_Cheb Duke_Cheb вне форума
  The Scarecrow
 Аватар для Duke_Cheb
Детали профиля (+/-)
Ответов: 5,851
Регистрация: 26.03.2012
Спасибо:1,633/856
Не понравилось:33/2
Репутация: 5587

PMR писал (а) Посмотреть сообщение
Ну и откомпил бы ворд на лету макрос...
ВБейсик не компилятор, а интерпретатор. Разница существенная. Компилятор проверяет синтаксис на наличие ошибок, формирует в ОЗУ исполняемую программу, и запускает ее. Интерпретатор же считывает команды из среды программирования построчно и пытается сразу их выполнить. Вот, сколько повторов в цикле будет, столько же раз интерпретатор считает команду, проверит на ошибки, если их нет, выполнит команду, и по-новой.
  Вверх
 28.06.2014, 16:27  
По умолчанию Re: Как удалить подстроки в txt или word файле
#16
  PMR PMR вне форума
  Администратор
 Аватар для PMR
Детали профиля (+/-)
Ответов: 42,087
Регистрация: 12.05.2008
Адрес: Тирасполь
Спасибо:4,663/4,982
Не понравилось:136/372
Репутация: PMR отключил(а) отображение уровня репутации

Тогда вопрос, как в макросах ворда сделать замену #????????????#, которая работает при замете с постановочными знаками? Типа регулярное выражение.
  Вверх
 29.06.2014, 01:36  
По умолчанию Re: Как удалить подстроки в txt или word файле
#17
  Duke_Cheb Duke_Cheb вне форума
  The Scarecrow
 Аватар для Duke_Cheb
Детали профиля (+/-)
Ответов: 5,851
Регистрация: 26.03.2012
Спасибо:1,633/856
Не понравилось:33/2
Репутация: 5587

Конкретизируй задачу. Я не понял .
  Вверх
 29.06.2014, 23:49  
По умолчанию Re: Как удалить подстроки в txt или word файле
#18
  PMR PMR вне форума
  Администратор
 Аватар для PMR
Детали профиля (+/-)
Ответов: 42,087
Регистрация: 12.05.2008
Адрес: Тирасполь
Спасибо:4,663/4,982
Не понравилось:136/372
Репутация: PMR отключил(а) отображение уровня репутации

Более частная задача, делать замены подстрок типа #123456789012# .
такие подстроки заменяются в ворде при:
заменить - больше - постановочные знаки и ввести
PMR писал (а) Посмотреть сообщение
#????????????#
  Вверх
 30.06.2014, 00:28  
По умолчанию Re: Как удалить подстроки в txt или word файле
#19
  Duke_Cheb Duke_Cheb вне форума
  The Scarecrow
 Аватар для Duke_Cheb
Детали профиля (+/-)
Ответов: 5,851
Регистрация: 26.03.2012
Спасибо:1,633/856
Не понравилось:33/2
Репутация: 5587

На что заменяем известно? Строка как выглядеть будет, на которую заменяем?
-------- Добавлено в 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

Последний раз редактировалось Duke_Cheb; 30.06.2014 в 00:35.
  Вверх
 30.06.2014, 20:17  
По умолчанию Re: Как удалить подстроки в txt или word файле
#20
  PMR PMR вне форума
  Администратор
 Аватар для PMR
Детали профиля (+/-)
Ответов: 42,087
Регистрация: 12.05.2008
Адрес: Тирасполь
Спасибо:4,663/4,982
Не понравилось:136/372
Репутация: PMR отключил(а) отображение уровня репутации

Да не, я под ??? имею виду любые символы, это считай регулярное выражение.
"?" заменяется на любой символ.
пример
#1er2fgh45n-u#
  Вверх
Ответ  
Похожие темы
Тема Автор Разделы Ответы Последний ответ
Как сделать чтобы Word считал формулы dgin Программы, софт 7 10.12.2015 11:15
Как удалить webalta? PMR Программисты и компьютеры в ПМР 9 06.10.2013 20:45
можно ли из ICQ удалить контакт? alex Программы, софт 12 24.08.2013 15:26
word 2003 - подстановочные знаки PMR Программисты и компьютеры в ПМР 8 11.01.2013 12:14
Удаление спецсимвола переноса в Word PMR Программисты и компьютеры в ПМР 4 26.07.2010 20:24

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход по разделам

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

Информация для лиц от 18 лет:

Форум ПМР. Социальный форум Приднестровья. Новости ПМР. Работа в Приднестровье. Объявления и реклама. Приднестровский форум. Знакомства и развлечения.
Яндекс.Метрика
Перевод: zCarot. Сегодня в Приднестровье. Всё самое интересное. Актуальные новости!