| Вопрос: Нужна Ваша помощь с массивом! | Добавлено: 17.05.07 15:45 |
Автор вопроса:  sirleks | Web-сайт: web-zdes.ru | ICQ: 349043257 |
|
Ситуация такая:
Есть массив следующег овида a(0)=pushkin_2005.txt a(1)=lermontov_2007.txt a(2)=tolstoi_2002.txt Нужно организовать поиск по частичному совпадению, например, если я ввожу 2005, чтобы он показал элемент 0, либо если там будет два элемента с 2005. Либо я думаю другой враиант, разбить данный массив на 2 массива например, один с годом, другой с фамилией и чтобы они были параллельны... но как это сделать? Очень порошу помочь, пишу курсовой. Заранее спасибо. |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Sneaks Вопросов: 9 Ответов: 84 |
Профиль | | #1 | Добавлено: 17.05.07 16:03 |
|
a(0,0)="pushkin"
a(0,1)="2005" a(1,0)="lermontov" a(1,1)="2007" ... |
||
|
Номер ответа: 2 Автор ответа: SneaksВопросов: 9 Ответов: 84 |
Профиль | | #2 | Добавлено: 17.05.07 16:07 |
|
забыл
ЗЫ: пользуй data1 
|
||
|
Номер ответа: 3 Автор ответа: sirleks ICQ: 349043257 Вопросов: 1 Ответов: 2 |
Web-сайт: Профиль | | #3 | Добавлено: 17.05.07 16:09 |
|
а можно попроще? я привел простейший пример...
У меня есть динамический массив, который надо разбивать по такому принципу, что все что до первого подчеркивания в одну кучу, все что после в другую.... |
||
|
Номер ответа: 4 Автор ответа: intel-DX ICQ: 445091742 Вопросов: 4 Ответов: 169 |
Профиль | | #4 | Добавлено: 17.05.07 18:27 |
|
Вот ето точно работает сам писал
Dim a(15) As String Private Sub Command1_Click() Obrazets = "2005" For i = 0 To 15 If InStr(a(i), Obrazets) <> 0 Then MsgBox i Next i End Sub Private Sub Form_Load() a(0) = "pushkin_2005.txt" a(1) = "lermontov_2007.txt" a(2) = "tolstoi_2002.txt" End Sub |
||
|
Номер ответа: 5 Автор ответа: EUGYВопросов: 0 Ответов: 454 |
Профиль | | #5 | Добавлено: 18.05.07 00:04 |
|
все что после в другую....
Dim a() As String Dim tmp() As String Dim x As Integer ReDim a(3) a(0) = "qwerty_123" a(1) = "asdf_456" a(2) = "zxcvb_789" a(3) = "фывапр_567" tmp() = Split(Join(a, "_"  , "_"
For x = 1 To UBound(tmp()) Step 2 Debug.Print tmp(x) Next |
||
|
Номер ответа: 6 Автор ответа: VisualPaul ICQ: 402519798 Вопросов: 12 Ответов: 111 |
Профиль | | #6 | Добавлено: 18.05.07 10:54 |
|
Type PepoleYear
Name As String Year As Integer End Type Dim A(3) As PepoleYear a(0).Name="pushkin" a(0).Year = 2005 И тд. и тп. |
||
|
Номер ответа: 7 Автор ответа: sirleksICQ: 349043257 Вопросов: 1 Ответов: 2 |
Web-сайт: Профиль | | #7 | Добавлено: 18.05.07 13:24 |
| спасибо большое, мужики! | ||
Страница: 1 |