Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Как сделать массовую замену такому тексту? Добавлено: 17.12.10 21:19  

Автор вопроса:  nuber
Приветствую всех,

я тут новенький, не обижайте если что ))


Вопрос такой, мне нужно взять вордовский текст вроде

КЛИЗМА - текст про клизмы
ШПИНАТ - текст про шпинаты
ЮМОР - текст про юмор




и сделать форматирование такое:


[SIZE="4"]Клизма[/SIZE]
текст про клизмы

[SIZE="4"]Шпинат[/SIZE]
текст про шпинаты

[SIZE="4"]Юмор[/SIZE]
текст про юмор


То есть две вещи:
Перенести на новую строку то что находится между " - " - как бы это я знаю как делается; а вот в чем трабл, так это:

как сделать заголовки Heading вотэтого текста что я выделил во втором варианте,
и как сделать чтобы то что было набрано все крупными буквами стало с заглавной?


Я пробовал крутить функции Find and Reolace > More > таи к далее, но пока не могу во всем разобраться.



Вот скриншот исходного текста с показанными скрытыми символами
[url]http://i13.fastpic.ru/big/2010/1217/99/e8a89ab838b992b408c4df04f7451299.gif[/url]

Помогите если не трудно.

Ответить

  Ответы Всего ответов: 12  

Номер ответа: 1
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
 Web-сайт: moscowdevils.ru
 Профиль | | #1
Добавлено: 17.12.10 21:22
на VBA, VB6, .NET?

Ответить

Номер ответа: 2
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
 Web-сайт: moscowdevils.ru
 Профиль | | #2
Добавлено: 17.12.10 21:24
всмысле заголовкаом? стиль заголовочный применить, шрифт изменить, жирным начертанием сделать?

Ответить

Номер ответа: 3
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #3 Добавлено: 18.12.10 00:47
RegEx, Replace

Ответить

Номер ответа: 4
Автор ответа:
 nuber



Вопросов: 4
Ответов: 2
 Профиль | | #4 Добавлено: 18.12.10 01:10
Я не знаю что такое VBA, VB6, .NET
всмысле заголовкаом? - сделать heading 1 на тех фразах что я выделил жирным шрифтом, SIZE="4"

RegEx, Replace - можно что-то подробнее?

Ответить

Номер ответа: 5
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
 Профиль | | #5 Добавлено: 18.12.10 04:13
Я не знаю что такое VBA, VB6, .NET

жесть :)))

Ответить

Номер ответа: 6
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #6 Добавлено: 18.12.10 10:12
nuber пишет:
Я не знаю что такое

А что ты знаешь?

Ответить

Номер ответа: 7
Автор ответа:
 Just



Вопросов: 4
Ответов: 330
 Профиль | | #7 Добавлено: 18.12.10 11:31
nuber, я так понял, ты одинаково хорошо знаешь, все языки и тебе не важно на чем это будет? )

Ответить

Номер ответа: 8
Автор ответа:
 nuber



Вопросов: 4
Ответов: 2
 Профиль | | #8 Добавлено: 18.12.10 13:08
Ребят, вы тут может очень умные в своей сфере, никто не возражает. Ничего если я идиот на вашем фоне и не понимаю многое? Ничего страшного?

В общем-то мне нужна помощь, если можете помочь, спасибо.

У меня есть такой текст, вот:
http://i13.fastpic.ru/big/2010/1217/99/e8a89ab838b992b408c4df04f7451299.gif


мне нужно сделать чтобы текст был такой:
http://i13.fastpic.ru/big/2010/1218/02/228033dea31aaebec9dc7f88d1c48b02.gif

Word 2003, английский.

Ответить

Номер ответа: 9
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
 Web-сайт: winandfx.narod.ru
 Профиль | | #9
Добавлено: 18.12.10 13:16
Секунду, то есть просто отформатировать текст в Word 2003? без vba. Но это же форум о программинге, хоть и на самом забавном из всех языке

Ответить

Номер ответа: 10
Автор ответа:
 Just



Вопросов: 4
Ответов: 330
 Профиль | | #10 Добавлено: 18.12.10 19:13
так ты хочешь получить html?

Ответить

Номер ответа: 11
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
 Web-сайт: studioartf.ru
 Профиль | | #11
Добавлено: 21.12.10 20:36
  1. Dim replacestring As String
  2. replacestring = Replace(Text1.Text, "-", "[/SIZE]" & vbcrlf)
  3. Text1.Text = replacestring

но в этом случае те надо поместить текст в текстбокс 1 и тогдаон заменит все символы - на
[/SIZE]
и перейдет на нов строку

Offtop:
А руками непроще сделать это все в ворде?

Ответить

Номер ответа: 12
Автор ответа:
 udn79



Вопросов: 2
Ответов: 95
 Профиль | | #12 Добавлено: 04.02.11 05:58
  1. Function myStyle(s As String)
  2.     Dim tmp: tmp = Split(s, "-")
  3.     If UBound(tmp) = 1 Then myStyle = "[SIZE=4] " & UCase(tmp(0)) & "[/SIZE]" & vbCrLf & LCase(tmp(1))
  4. End Function

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам