Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Определение "знака пунктуации" в файле .txt - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение "знака пунктуации" в файле .txt (Макросы/Sub)
Определение "знака пунктуации" в файле .txt
A_3485 Дата: Среда, 04.06.2014, 17:57 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 146
Репутация: 0 ±
Замечаний: 40% ±

2007
Добрый день!
Помогите пожалуйста разобраться со знаками пунктуации при считывании данных файла .txt.
У меня есть txt файл с 3 строками и 4 столбцами. При последовательном считывании данных не могу определить знак пункутации, который отражается как "квадрат". Если символ записываю в какую либо ячеку то выдает как знак табуляции, подставляю его в свой код и при запуске он не реагирует на "квадрат":
[vba]
Код
......
For Index = 1 To Len(MyText)
                     c = Mid(MyText, Index, 1)                    
                         If c = "    " Then
                             c = ""
                             Result = Result + c
                         End If
Next Index
[/vba]
 
Ответить
СообщениеДобрый день!
Помогите пожалуйста разобраться со знаками пунктуации при считывании данных файла .txt.
У меня есть txt файл с 3 строками и 4 столбцами. При последовательном считывании данных не могу определить знак пункутации, который отражается как "квадрат". Если символ записываю в какую либо ячеку то выдает как знак табуляции, подставляю его в свой код и при запуске он не реагирует на "квадрат":
[vba]
Код
......
For Index = 1 To Len(MyText)
                     c = Mid(MyText, Index, 1)                    
                         If c = "    " Then
                             c = ""
                             Result = Result + c
                         End If
Next Index
[/vba]
Автор - A_3485
Дата добавления - 04.06.2014 в 17:57
RAN Дата: Среда, 04.06.2014, 20:43 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
vblf
vbcr
vbcrlf
vbnewline

[vba]
Код
=КОДСИМВ(знак табуляции)
[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 04.06.2014, 21:30
 
Ответить
Сообщениеvblf
vbcr
vbcrlf
vbnewline

[vba]
Код
=КОДСИМВ(знак табуляции)
[/vba]
Автор - RAN
Дата добавления - 04.06.2014 в 20:43
krosav4ig Дата: Четверг, 05.06.2014, 00:55 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
можно в цикл добавить строку [vba]
Код
Debug.Print c; AscW(c)
[/vba] и смотреть в Immediate
или выполнить код [vba]
Код
Debug.Print AscW("ваш квадрат")
[/vba] и смотреть в Immediate

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 05.06.2014, 03:16
 
Ответить
Сообщениеможно в цикл добавить строку [vba]
Код
Debug.Print c; AscW(c)
[/vba] и смотреть в Immediate
или выполнить код [vba]
Код
Debug.Print AscW("ваш квадрат")
[/vba] и смотреть в Immediate
Автор - krosav4ig
Дата добавления - 05.06.2014 в 00:55
A_3485 Дата: Четверг, 05.06.2014, 11:51 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 146
Репутация: 0 ±
Замечаний: 40% ±

2007
Спасибо, получилось с использованием
=КОДСИМВ(знак табуляции)
 
Ответить
СообщениеСпасибо, получилось с использованием
=КОДСИМВ(знак табуляции)
Автор - A_3485
Дата добавления - 05.06.2014 в 11:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение "знака пунктуации" в файле .txt (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!