Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Извлечение из строки n-го элемента, можно с помощью ExtractElement 
:(
    Опции темы
Mrak
Дата 17.11.2004, 09:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 259
Регистрация: 16.10.2004

Репутация: нет
Всего: 5
Вот тут такая интересная задачка.:-))
Например на Листе1 в столбе A расположены Фамилия Имя Отчество студента в одной ячейке, т.е.
Иванов Иван Иванович
Сидоров Андрей Андреевич.

Хотелось бы, чтобы в столбце A Листа2 была Фамилия, в B - Имя, С - Отчество.
Читал про функцию ExtractElement, но что-то у меня с ней не получается? Не разъясните?


--------------------
Смерть - не противоположность жизни, а лишь ее часть. (Х. Мураками)
PM MAIL   Вверх
Гость_Старуха
Дата 19.11.2004, 15:22 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Код

Private Sub CommandButton1_Click()
Dim str As String, str1 As String, i As Integer, k As Integer, c As Integer
Dim e As String
d = Лист1.UsedRange.Rows.Count
For rwIndex = 1 To d
str = Range("A" & rwIndex)
strLen = Len(str)
For i = 1 To strLen
str1 = Mid(str, i, 1) 'считываем по буквам
If Asc(str1) <> 32 Then
с = 0 'кол пробелов
k = k + 1 'кол букв
Else
k = k
c = c + 1
End If
Select Case c
Case 0
Лист2.Range("A" & rwIndex).Value = Left(str, k)
'пробелов нет -первое слово
Case 1
e = Len(Лист2.Range("A" & rwIndex).Value) + c + 1 'позиция первой буквы после пробела
Лист2.Range("B" & rwIndex).Value = Mid(str, e, k - Len(Лист2.Range("A" & rwIndex).Value))
'один пробел -второе слово
Case Else
e = Len(Лист2.Range("A" & rwIndex).Value) + Len(Лист2.Range("B" & rwIndex).Value) + 1 + c
'2пробела -третье слово
Лист2.Range("C" & rwIndex).Value = Mid(str, e, k)
End Select

Next i
k = 0
e = 0
c = 0
Next rwIndex
End Sub
  Вверх
Mrak
Дата 20.11.2004, 10:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 259
Регистрация: 16.10.2004

Репутация: нет
Всего: 5
Класс, огромное спасибо, то что нужно. smile


--------------------
Смерть - не противоположность жизни, а лишь ее часть. (Х. Мураками)
PM MAIL   Вверх
Staruha
Дата 20.11.2004, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27
О Mrak Вас с первым погоном.Как думаешь мне второй не помешает smile


--------------------
Возмездие настигнет
PM MAIL   Вверх
Mrak
Дата 21.11.2004, 09:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 259
Регистрация: 16.10.2004

Репутация: нет
Всего: 5
Спасибо smile , я думаю тебе уже третий давать пора. А кстати, модераторы разделов могут повышать репутацию от лица других новичков smile


--------------------
Смерть - не противоположность жизни, а лишь ее часть. (Х. Мураками)
PM MAIL   Вверх
Кащей
Дата 21.11.2004, 15:50 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Могут, но не в этом. Тут вроде как я числюсь, но возможности изменять репутацию меня лишили. Так что пиши Админу.
  Вверх
Кащей
Дата 21.11.2004, 16:09 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Я перенес тему из MS Office и прошу модератора cardinal поднять репутацию Старуха за ответы в этой теме. У меня такой возможности нет.
  Вверх
cardinal
Дата 21.11.2004, 16:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Не ну вы что? smile Репутацию повышать от другого лица?

Я пошутил... smile


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Staruha
Дата 21.11.2004, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27
smile


--------------------
Возмездие настигнет
PM MAIL   Вверх
Staruha
Дата 2.4.2005, 22:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27
Вот так лучше будет.Растем так скать smile
Код

Private Sub CommandButton1_Click()
Dim M
Dim MArray As String
Dim i As Integer
Dim r As Integer
 For r = 1 To 5
     MArray = Range("A" & r).Value
     M = Split(MArray)
        For i = 0 To UBound(M) 
              Cells(r, 2 + i) = M(i)                        
     Next i
 Next r
End Sub



--------------------
Возмездие настигнет
PM MAIL   Вверх
cardinal
Дата 3.4.2005, 00:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
В FAQ засунуть? Если да, то как енто назвать? smile


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Staruha
Дата 3.4.2005, 12:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27
И верхний и нижний код делают одно и тоже,только верхний код раскидает по трем столбцам(меня это ограничение угнетало все это время), а новый- любое кол.слов с пробелами на столько же столбцов. smile
Посмотри как это работает.Там все расписано

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  textcolumn.rar


--------------------
Возмездие настигнет
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1411 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.