Если в последовательности символов имеются рядом стоящие запятые и тире, то везде поменять их местами

@Фаил · Регистрация: 01.06.2012

Author24 — интернет-сервис помощи студентам

Если в последовательности символов имеются рядом стоящие запятые и тире, то везде поменять их местами.

Текст произвольный, важен код.

@~~Апострофф~~ · 01.06.2012, 09:00

Visual Basic

1	msgbox replace("asdf,- ndddgh,- dgh",",-","-,")

@Фаил · 01.06.2012, 12:51 **[ТС]**

А в полном составе, как будет выглядеть код?

@Казанский · 01.06.2012, 12:57

Например так

Visual Basic

1
2
3

Sub ee()
MsgBox Replace(InputBox("Введите текст", , "asdf,- ndddgh,- dgh"), ",-", "-,")
End Sub

@Фаил · 01.06.2012, 13:21 **[ТС]**

А допустим мне надо "предложение" из табл. Как к нему обратиться и вывести на другую ячейку?
С DIM-мами и с условиями))

@Казанский · 01.06.2012, 13:25

Сформулируйте задачу полностью. Во-1, "предложение" в каком приложении - Word, Excel?

@Фаил · 01.06.2012, 13:28 **[ТС]**

Предложение произвольное, просто в ячейке. Excel соответственно.

@taras atavin · 01.06.2012, 13:31

Сообщение от Фаил

Если в последовательности символов имеются рядом стоящие запятые и тире, то везде поменять их местами

при этом отвести счётчик текущего символа за вторым символом пары, ставшим первым, то есть на один символ назад и на следующем шагу опять наткнуться на ту же пару и опять поменять её местами, при этом отвести счётчик текущего символа за вторым символом пары, ставшим первым, то есть на один символ назад...?

@Фаил · 01.06.2012, 13:37 **[ТС]**

Сообщение от taras atavin

при этом отвести счётчик текущего символа за вторым символом пары, ставшим первым, то есть на один символ назад и на следующем шагу опять наткнуться на ту же пару и опять поменять её местами, при этом отвести счётчик текущего символа за вторым символом пары, ставшим первым, то есть на один символ назад...?

Эмм, просто если запятая и тире стоят вместе, поменять их местами.

@taras atavin · 01.06.2012, 13:55

Я тебе просто показал, как с помощью закона Мёрфи прочитать твоё ТЗ, как задание на мёртвое зависание: у тебя не сказано, сколько раз они должны меняться местами, а при обмене местами двух символов эти символы не разойдутся.

@Фаил · 01.06.2012, 14:05 **[ТС]**

достаточно одного раза) Но можно все это с условиями?

@Catstail · 01.06.2012, 14:07

Хм... Рядом стоящие - это значит ",-" и "-,". Как я понял, первое нужно поменять на второе, а второе - на первое. Это можно сделать так:

Visual Basic

Function Change(ByVal S As String)
   i% = 1
   Do
     If i% >= Len(S) Then Exit Do
     If (Mid$(S, i%, 2) = ",-") Then
        Mid$(S, i%, 2) = "-,"
        i% = i% + 2
     ElseIf (Mid$(S, i%, 2) = "-,") Then
        Mid$(S, i%, 2) = ",-"
        i% = i% + 2
     Else
        i% = i% + 1
     End If
   Loop
   Change = S
End Function

@Фаил · 01.06.2012, 14:13 **[ТС]**

Достаточно одного раза. Но можно все это с условиями?

@ikki · 01.06.2012, 14:17

Сообщение от Catstail

Это можно сделать так:

или так:

Visual Basic

1	s=replace(replace(replace(s,",-","&^$#"),"-,",",-"),"&^$#","-,")

@Catstail · 01.06.2012, 14:23

А если в тексте встречаются комбинации символов "&^$#"? Проверял?

@ikki · 01.06.2012, 14:30

Не по теме:

Сообщение от Catstail

А если в тексте встречаются комбинации символов "&^$#"?

тем хуже этому тексту :D

@Фаил · 01.06.2012, 14:43 **[ТС]**

Catstail, Я очень надеюсь что это ВБА. Function- такого не встречал. И на это спс.

@taras atavin · 01.06.2012, 14:53

Есть там такое ключевое слово.

@ikki · 01.06.2012, 14:57

Не по теме:

Сообщение от Фаил

Я очень надеюсь что это ВБА. Function- такого не встречал

он хорошо прячется, ага.

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	01.06.2012, 13:55	10
	Я тебе просто показал, как с помощью закона Мёрфи прочитать твоё ТЗ, как задание на мёртвое зависание: у тебя не сказано, сколько раз они должны меняться местами, а при обмене местами двух символов эти символы не разойдутся. 0

@Фаил 2 / 0 / 0 Регистрация: 01.06.2012 Сообщений: 23
	01.06.2012, 14:05 [ТС]	11
	достаточно одного раза) Но можно все это с условиями? 0

@Catstail Модератор 36592 / 20322 / 4218 Регистрация: 12.02.2012 Сообщений: 33,623 Записей в блоге: 13
	01.06.2012, 14:23	15
	А если в тексте встречаются комбинации символов "&^$#"? Проверял? 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	01.06.2012, 14:53	18
	Есть там такое ключевое слово. 0

@Фаил 2 / 0 / 0 Регистрация: 01.06.2012 Сообщений: 23
	01.06.2012, 12:51 [ТС]	3
	А в полном составе, как будет выглядеть код? 0

@Фаил 2 / 0 / 0 Регистрация: 01.06.2012 Сообщений: 23
	01.06.2012, 13:21 [ТС]	5
	А допустим мне надо "предложение" из табл. Как к нему обратиться и вывести на другую ячейку? С DIM-мами и с условиями)) 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	01.06.2012, 13:25	6
	Сформулируйте задачу полностью. Во-1, "предложение" в каком приложении - Word, Excel? 0

@Фаил 2 / 0 / 0 Регистрация: 01.06.2012 Сообщений: 23
	01.06.2012, 13:28 [ТС]	7
	Предложение произвольное, просто в ячейке. Excel соответственно. 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	01.06.2012, 13:31	8
	Сообщение от Фаил Если в последовательности символов имеются рядом стоящие запятые и тире, то везде поменять их местами при этом отвести счётчик текущего символа за вторым символом пары, ставшим первым, то есть на один символ назад и на следующем шагу опять наткнуться на ту же пару и опять поменять её местами, при этом отвести счётчик текущего символа за вторым символом пары, ставшим первым, то есть на один символ назад...? 1

@Фаил 2 / 0 / 0 Регистрация: 01.06.2012 Сообщений: 23
	01.06.2012, 13:37 [ТС]	9
	Сообщение от taras atavin при этом отвести счётчик текущего символа за вторым символом пары, ставшим первым, то есть на один символ назад и на следующем шагу опять наткнуться на ту же пару и опять поменять её местами, при этом отвести счётчик текущего символа за вторым символом пары, ставшим первым, то есть на один символ назад...? Эмм, просто если запятая и тире стоят вместе, поменять их местами. 0

@Фаил 2 / 0 / 0 Регистрация: 01.06.2012 Сообщений: 23
	01.06.2012, 14:13 [ТС]	13
	Достаточно одного раза. Но можно все это с условиями? 0

@ikki
	01.06.2012, 14:30 #16
	Не по теме: Сообщение от Catstail А если в тексте встречаются комбинации символов "&^$#"? тем хуже этому тексту :D 0

@Фаил 2 / 0 / 0 Регистрация: 01.06.2012 Сообщений: 23
	01.06.2012, 14:43 [ТС]	17
	Catstail, Я очень надеюсь что это ВБА. Function- такого не встречал. И на это спс. 0

@ikki
	01.06.2012, 14:57 Если в последовательности символов имеются рядом стоящие запятые и тире, то везде поменять их местами #19
	Не по теме: Сообщение от Фаил Я очень надеюсь что это ВБА. Function- такого не встречал он хорошо прячется, ага. 0