Очень нужна Вашат помощь

[alex77777]

Всем привет!

Такая задача. Колонка из Фамилии,Имя, Отчества. Пример:
А1
1Иванов
2Иван
3ИВанович
4Петров
5Петр
6Петрович
и т.д.

Необходимо сделать :
А1 В1 С1
1Иванов Иван Иванович
2Петров Петр Петрович

Всем спасибо кто откликнется

[Ramzes]

Что то нифига понять не могу

[Deja-vu]

RamzesВидимо человеку надо 1. отсортировать все фамилии, начинающиеся с одинаковой буквы и 2. разместить их на разных колонках...

[Ramzes]

Можно сделать так, если это все в файле

Код: Выделить всё


Dim str1, str2, txt as string

open "File path" for input as #1
do until eof(1)
lin einput #1, txt
if mid(txt,1,1) = "И" then
str1 = str1 & txt
end if
if mid(txt,1,1) = "П" then
str2 = str2 & txt
end if
loop
close #1



Вот, но лучше канешна select case в таком случае юзать

[Ramzes]

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

[vvs_adm]

Не, мне кажется у него там проще... Там строки подряд идут, а ему каждые три строки через пробел сшить надо в одну, сожержащую сразу фамилию, имя и отчество. Типа еще проще будет, чем ты написал.

Код: Выделить всё

Dim sArray() as string
Dim sTemp as string
Dim nCount as long
Dim nNumber as byte

Open "sFileName" for input as #1
nNumber=1
nCount=0

Do Until EOF(1)
..line input #1, sTemp
..Select Case nNumber
....Case 1
......ReDim Preserve sArray(nCount)
......sArray(nCount)=sTemp
......nNumber=2
......nCount=nCount+1
....Case 2
......sArray(nCount)=sArray & " " & sTemp
......nNumber=3
......nCount=nCount+1
....Case 3
......sArray(nCount)=sArray & " " & sTemp
......nNumber=1
......nCount=nCount+1
....End Select
..Loop
Close #1


P.S.: Это ж надо, у меня там индекса у массива нигде не было, а я тока щаз заметил... Позор

[vvs_adm]

Не, мне кажется у него там проще... Там строки подряд идут, а ему каждые три строки через пробел сшить надо в одну, сожержащую сразу фамилию, имя и отчество. Типа еще проще будет, чем ты написал.

Код: Выделить всё

Dim sArray() as string
Dim sTemp as string
Dim nCount as long
Dim nNumber as byte

Open "sFileName" for input as #1
nNumber=1
nCount=0

Do Until EOF(1)
  line input #1, sTemp
  Select Case nNumber
    Case 1
      ReDim Preserve sArray(nCount)
      sArray=sTemp
      nNumber=2
      nCount=nCount+1
    Case 2
      sArray=sArray & " " & sTemp
      nNumber=3
      nCount=nCount+1
    Case 3
      sArray=sArray & " " & sTemp
      nNumber=1
      nCount=nCount+1
    End Select
  Loop
Close #1


Странно, так получается, если точки на пробелы поменять

[alex77777]

Спасибо за помощь всем.
Да мне всех надо по Фамилии И.О. в одну строку раскидать. Правильно.

[uhm]

Э-э-э, а если это все в Эксель, и ввести формулу

=A1 & " " & A2 & " " & A3

а потом повторять через три строчки, а потом скопировать и убрать пустые строчки - не проще будет? Или я вообще не про то?

[alex77777]

в принципе про ЭТО конечно.