ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление кавычек из строки VB.Net
7 сообщений из 7, страница 1 из 1
Удаление кавычек из строки VB.Net
    #38548080
tasha klemer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tasha klemer
Гость
Здравствуйте мне необходимо уадлить из строки открывающиеся и закрывающиеся кавычки.
Вроде все элементарно.

Код: vbnet
1.
2.
 Name_ = Mid(Name_, InStr(Name_, Chr(34)), 1)
 Name_ = Mid(Name_, InStrRev(Name_, Chr(34)), 1)



но почему то мне возвращает пустую строку.
...
Рейтинг: 0 / 0
04.02.2014, 09:32
| Ответить | Цитировать | Написать  
Удаление кавычек из строки VB.Net
    #38548186
tasha klemer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tasha klemer
Гость
tasha klemer,
разобралась


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
 If InStr(Name_, Chr(34)) < 6 And InStr(Name_, Chr(34)) <> 0 Then
                Name_ = Mid(Trim(Name_), InStr(Name_, Chr(34)) + 1, Len(Name_))
            End If
            If InStrRev(Trim(Name_), Chr(34)) > 0 Then
                Name_ = Mid(Trim(Name_), 1, InStrRev(Trim(Name_), Chr(34)) - 1)
            End If
            EXWS_Developer.Cells(Id_Company_ + 1, 2).value = Name_ 'наименование
...
Рейтинг: 0 / 0
04.02.2014, 10:43
| Ответить | Цитировать | Написать  
Удаление кавычек из строки VB.Net
    #38548193
грязный комплектовщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
грязный комплектовщик
Гость
tasha klemerЗдравствуйте мне необходимо уадлить из строки открывающиеся и закрывающиеся кавычки.
Вроде все элементарно.

Код: vbnet
1.
2.
 Name_ = Mid(Name_, InStr(Name_, Chr(34)), 1)
 Name_ = Mid(Name_, InStrRev(Name_, Chr(34)), 1)



но почему то мне возвращает пустую строку.
Ну ты сам посмотри, че у тебя делается
Код: vbnet
1.
 Name_ = Mid(Name_, InStr(Name_, Chr(34)), 1)


InStr(Name_, Chr(34)) - находишь 1 с начала позицию вхождения подстроки типа кавычка в строку, потом почему-то в Name_ засовываешь 1-й символ подстроки.
Вар-т Name_ = Mid(Name_, InStr(Name_, Chr(34)), кстати, как раз оставляет в Name_ все после 1-й кавычки слева
И тд.
Короче, читай хелп по mid
...
Рейтинг: 0 / 0
04.02.2014, 10:48
| Ответить | Цитировать | Написать  
Удаление кавычек из строки VB.Net
    #38548214
tasha klemer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tasha klemer
Гость
спасибо, я разобралась!
...
Рейтинг: 0 / 0
04.02.2014, 11:11
| Ответить | Цитировать | Написать  
Удаление кавычек из строки VB.Net
    #38549236
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
tasha klemerЗдравствуйте мне необходимо уадлить из строки открывающиеся и закрывающиеся кавычки.
Код: vbnet
1.
Str = Replace(Str, """", "")
...
Рейтинг: 0 / 0
04.02.2014, 18:53
| Ответить | Цитировать | Написать  
Удаление кавычек из строки VB.Net
    #38549626
гр к
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
гр к
Гость
Akinatasha klemerЗдравствуйте мне необходимо уадлить из строки открывающиеся и закрывающиеся кавычки.
Код: vbnet
1.
Str = Replace(Str, """", "")


Так ведь все кавычки убираются. а не только крайние?
...
Рейтинг: 0 / 0
05.02.2014, 07:36
| Ответить | Цитировать | Написать  
Удаление кавычек из строки VB.Net
    #38549673
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
гр кТак ведь все кавычки убираются. а не только крайние?Угу. Но если добавить limit замен = 1, уберётся только первая...
...
Рейтинг: 0 / 0
05.02.2014, 08:58
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление кавычек из строки VB.Net
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]