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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Из числа в текст, Интерпритация данных 
:(
    Опции темы
FRC
Дата 20.5.2007, 17:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Доброго времени суток!
На форме есть Combo1, в него, при открытии формы, вносятся имена файлов такого типа -  "56783.01", "12345.01" и т.д.
В текстовом файле нахотится некое описание - "56783 Иванов", "12345 Сидоров" и. т.д.
Как можно заменить названия файлов в Combo1 на значение указанное в текстовом файле?
PM MAIL   Вверх
DelphianOracle
Дата 20.5.2007, 18:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Код

For i = 0 To Combo1.ListCount
   open "путь к файлу" for input as #1
   input #1, combo1.list(i)
   close #1
Next i


Если я правильно вас понял...
PM MAIL   Вверх
FRC
Дата 20.5.2007, 18:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Вот код:
Код
Private Sub Form_Load()
   Dim path As String
   Dim file As String
   path = ("C:\работа\форма\файлы")
   file = Dir((path) & "\*.*")
   Combo1.Clear
   Do While Len(file)
      Combo1.AddItem file
      file = Dir()
   Loop
   For i = 0 To Combo1.ListCount
   Open "C:\работа\форма\текст\st.txt" For Input As #1
   Input #1, Combo1.List(i)
   Close #1
   Next i
End Sub

Ругается "Compile error: Variable required-can't assign to this expression"
вот на этой строке:
Код

 Input #1, Combo1.List(i)
PM MAIL   Вверх
FRC
Дата 20.5.2007, 18:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Вот код:
Код
Private Sub Form_Load()
   Dim path As String
   Dim file As String
   path = ("C:\работа\форма\файлы")
   file = Dir((path) & "\*.*")
   Combo1.Clear
   Do While Len(file)
      Combo1.AddItem file
      file = Dir()
   Loop
   For i = 0 To Combo1.ListCount
   Open "C:\работа\форма\текст\st.txt" For Input As #1
   Input #1, Combo1.List(i)
   Close #1
   Next i
End Sub

Ругается "Compile error: Variable required-can't assign to this expression"
вот на этой строке:
Код

 Input #1, Combo1.List(i)
PM MAIL   Вверх
DimkraS
Дата 20.5.2007, 19:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 3
Может неправильно понял задачу, но вот:
Код

Private Sub Command1_Click()
    Number = FreeFile

    Dim MyArr() As Byte
   Dim AmountOfLines As Long
   
   Open "imy.txt" For Binary As #1

   ReDim MyArr(LOF(1))
   Get #1, , MyArr()
   Close #1
   
   AmountOfLines = 0
   For i = 0 To UBound(MyArr)
      If MyArr(i) = 10 Then AmountOfLines = AmountOfLines + 1
   Next i
   
   Open "imy.txt" For Input As #Number
   ReDim imya(AmountOfLines)
   ReDim naame(AmountOfLines)
   ReDim imyaa(AmountOfLines)
   ReDim imyacombo(AmountOfLines)
   For i = 1 To AmountOfLines
            Line Input #Number, imya(i)
        dlina = Len(imya(i))
        dlina = dlina - 2
        imya(i) = Mid(imya(i), 2, dlina)
        dlina2 = Len(imya(i))
        
        For p = 1 To dlina2
            sim = Mid(imya(i), p, 1)
            If sim = " " Then
                p = dlina2
            ElseIf sim <> " " Then
                naame(i) = Str(naame(i)) + Str(sim)
            Else
            End If
        Next p
        
        dlina3 = Len(naame(i))
        dlimy = dlina2 - dlina3 - 1
        imyaa(i) = Mid(imya(i), dlina3, dlimy)
        
        dlcombo = Len(Combo1.List(i - 1))
       
        For p = 1 To dlcombo
            sim = Mid(Combo1.List(i - 1), p, 1)
            If sim = "." Then
                p = dlcombo
            ElseIf sim <> "." Then
                imyacombo(i) = Str(imyacombo(i)) + Str(sim)
            Else
            End If
        Next p
        If naame(i) = imyacombo(i) Then
            Combo1.List(i - 1) = imyaa(i)
        End If
  Next i
  Close #Number
End Sub

Private Sub Form_Load()
    Combo1.List(0) = "56783.01"
    Combo1.List(1) = "12345.01"
End Sub


Это сообщение отредактировал(а) DimkraS - 20.5.2007, 19:44
--------------------
PM MAIL   Вверх
Akina
Дата 20.5.2007, 22:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(FRC @  20.5.2007,  19:59 Найти цитируемый пост)
Ругается "Compile error: Variable required-can't assign to this expression"

Правильно ругается - требуется промежуточная строковая переменная.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
DelphianOracle
Дата 22.5.2007, 15:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Код

dim a as string
    For i = 0 To Combo1.ListCount
        Open path&"\"combo1.list(i) For Input As #1
        Line Input #1, a
        Combo1.List(i) = a
        close #1
    Next i
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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