Помогите с текстом

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Greis
Начинающий
Начинающий
 
Сообщения: 21
Зарегистрирован: 30.03.2006 (Чт) 22:53

Помогите с текстом

Сообщение Greis » 31.03.2006 (Пт) 21:29

Здравствуйте!
Всё-таки решилась написать.Только не посылайте в поиск. Два дня в нём сижу! Нашла много, но для меня толку мало...как впрочем и знаний. Есть следующий текст разделитель ТAB:
id name item1 item2 item3 item4 item5 и т.д. -значения, но их в тексте нет
Сам текст 3-5 тыс строк не по порядку(хотя можно и сделать по порядку, но некоторых нет..как на примере)
1 [ivanov] 13287 3432 2374 37433 [aaaaa] 343434 232323
12 [petrov_sidorov] 87345232 63432 23741 37433 76999 [eeeeeeee] 4343
14 [pupkin] 7345232 163432 23741 37433 76999 454545 [ccccc] 35456
Требуется нахождение по id , а выводить в зависимости от того, что требуется и распределить их по TextBox'ам(распределить смогу...было бы что :) ) Иногда нужно вывести допустим первых три итема. Если вас не затруднит напишите пример...хотя б как считать данные от и до (допустим от таб до таб).
P.S.Пыталась сделать как советовали здесь. Не получается вывести то что нужно. :(

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 31.03.2006 (Пт) 21:32

Удобнее всего будет импортировать эти данные в базу данных и работать уже с ней.
Lasciate ogni speranza, voi ch'entrate.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 31.03.2006 (Пт) 21:36

Код: Выделить всё
Dim FN As Integer, L As String, ID As String, I As Long, A() As String
FN = FreeFile
Open "C:\data.txt" For Input As #1
Do While Not EOF(FN)
  Line Input #FN, L
  I = InStr(L, vbTab)
  If I = 0 Then
    ID = vbNullString
  Else
    ID = Left$(L, I-1)
  End If
  If ID = "14" Then Exit Do
  L = vbNullString
Loop
If Len(L) > 0 Then
  A() = Split(L, vbTab)
  MsgBox A(1)
End If
Close #1
Lasciate ogni speranza, voi ch'entrate.

Greis
Начинающий
Начинающий
 
Сообщения: 21
Зарегистрирован: 30.03.2006 (Чт) 22:53

Сообщение Greis » 31.03.2006 (Пт) 22:09

alibek писал(а):Удобнее всего будет импортировать эти данные в базу данных и работать уже с ней.

Да читала и об этом..говорю ж два дня мучаюсь :) Только вот удобнее это тем кто знает, а мне...если такого простого ещё сделать не могу :(
Огромное спасибо!..жаль конечно, что без пояснений(хочется не просто скопировать, а понять). Уже даже проверила...то что нужно...пойду разбираться, что да как.
Ещё раз спасибо.

Greis
Начинающий
Начинающий
 
Сообщения: 21
Зарегистрирован: 30.03.2006 (Чт) 22:53

Сообщение Greis » 04.04.2006 (Вт) 0:11

И снова Я :) Вопрос опять по тексту..поэтому решила в этой же теме.
Благодаря alibek'у удалось написать програмку изменяющую координаты {x;y;z.ниж;z.верх} на х+число;у+число и т.д. в тексте вот кусочек
Код: Выделить всё
territory_begin   [23_24_MarNec_04]   {{119560;132520;-4832;-4632};{120600;132520;-4832;-4632};{120600;134424;-4832;-4632};{119560;134424;-4832;-4632}}   territory_end
npcmaker_begin   [23_24_MarNec_04]   initial_spawn = all
npc_begin   [hell_keeper_crimson_doll]   pos = {119736;132600;-4832;0}   total=1   respawn=1min   npc_end
npcmaker_end

Это типа похвалилась :) , но опять же повторяюсь - благодаря подсказке alibek'а. Да и что б легче было понять чего мне это стоило и как сейчас обидно. Теперь о проблемме. Весь текстовый файл в кодировке Юникод...естественно для пробы я брала кусок и не смотрела как сохранила (ANSI). Всё работало без проблем. Когда я сохранила текст в Юникоде то в окне textbox(пока существует для визуальной проверки) перед текстом появилось яю, а сохраняется(в отдельный файл) вот такое ⼯ⴭⴭⴭ䴭. Можно как-нибудь несложно решить эту проблемму? Конечно я могу перед изменением сохранять файл в ANSI, но это уже на крайний случай.
P.S. Когда искала ответ на первый вопрос то находила что-то про яю ....сейчас найти не могу :(

cooler
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 90
Зарегистрирован: 09.08.2004 (Пн) 4:58
Откуда: Che sity

Сообщение cooler » 07.04.2006 (Пт) 18:44

Не совсем понял вопроса, номожет надо искать перекодировку текста?
Windows написанна с применением искусственного интеллекта. И как любое разумное существо старается работать как можно меньше :))


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 181

    TopList