Путаница какя та

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Путаница какя та

Сообщение _Мика_ » 03.11.2003 (Пн) 17:48

Народ подскажите пожалуйста!
Я делаю плеер т.е. уже сделал почти у меня есть плейлист сохраняю я его таким кодом:

Open "c:/PlayList.nam" For Output As #1
Close #1
Open "c:/PlayList.nam" For Append As #1
For w = 0 To List1.ListCount
sTemp = List1.List(w)
If sTemp <> "" Then
Print #1, List1.List(w)
End If
Next
Close #1

он сохраняется все хорошо
потом смотрим файл плейлиста C:\PlayList.nam там написано:

01 Mein Herz Brennt.mp3
02 Links 2 3 4.mp3
03 Sonne.mp3

все как надо :)

НО когда я начинаю заружать этот файл этим кодом:

On Error Resume Next
Open "c:/PlayList.nam" For Input As #1
Do Until EOF(1)
Input #1, PLST1
List1.AddItem PLST1
Loop
Close #1

то у меня в Листе получается почему то в место:

01 Mein Herz Brennt.mp3
02 Links 2 3 4.mp3
03 Sonne.mp3

этого вот это безобразие :( :


1
Mein Herz Brennt.mp3
2
Links 2 3 4.mp3
3
Sonne.mp3



______________________________________

ПОЧЕМУ уже часа два возился и нечего :( :?: :!:
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

ANDLL
Великий гастроном
Великий гастроном
Аватара пользователя
 
Сообщения: 3450
Зарегистрирован: 29.06.2003 (Вс) 18:55

Сообщение ANDLL » 03.11.2003 (Пн) 18:15

Рекомендую заменит Input на Line Input т.е:
Код: Выделить всё
Line Input #1, PLST1

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 03.11.2003 (Пн) 20:10

Помогло :D :!: :!: :!:
Огромное Спасибо :!: :)
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!


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

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

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

    TopList