VBNet - Форум - Ошибка с файлами

Вопрос: Ошибка с файлами Добавлено: 01.02.06 22:49

Автор вопроса: Aндрей | ICQ: 259020622

Нужна программа, которая делать примерно следующее
вася -> dfcz лена -> ktyf
Ошибка во время выполнения 55
Файл уже открыт
Разные варианты попробовал, как надо сделать?

'Íóæíà ïðîãà êîòðàÿ äåëàò ïðèìåðíî ñëåäþùåå éöóêåí->>qwerty âàñÿ===dfcz
'Îøèáêà âî âðåìÿ âûïîëíåíèÿ ïðîãðàììû 55
'Ôàéë óæå îòêðûò
'Ôàëû ðàçíûå ïðîáîâàë, ðåæèìû òîæå, ãäå ÿ îøèáñÿ òî?
Dim h As Long, h2 As Long, ii As Long
Dim s As String, ineed As Long
Private Sub Form_Load()
h2 = FreeFile
h = FreeFile
Close h2
Close h
Open "c:\a" For Input Access Read As h 'ìîæíî ìåíÿòü îïåðàòîðû open ìåñòàìè
Open "c:\b" For Output Access Write As h2 'íî îøèáêà áóäåò ñäåñü

While Not EOF(h)
Line Input #h, s
ineed = s

For ii = 1 To Len(s)
ineed = ineed & Chr(Asc(Mid(s, ii, 1)) + 127)
Next ii

Print #h2, ineed

Wend

Close h2
Close h
End Sub
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: SerJ Вопросов: 24 Ответов: 332	Профиль \| \| #1	Добавлено: 01.02.06 22:57
	Лично я это Íóæíà ïðîãà êî&# не понял Ответить

Номер ответа: 2 Автор ответа: mynog Вопросов: 3 Ответов: 42	Профиль \| \| #2	Добавлено: 01.02.06 23:18
	Во-первых, так: h = FreeFile Open "c:\a" For Input Access Read As h h2 = FreeFile Open "c:\b" For Output Access Write As h2 Во-вторых, тип ineed не String ли должен быть? В-третьих код Chr(Asc(Mid(s, ii, 1)) + 127) для "васи" дает ошибку, и нетрудно догадаться почему: asc("в" = 226 226 + 127 > 255. Ответить

Номер ответа: 3 Автор ответа: Aндрей ICQ: 259020622 Вопросов: 30 Ответов: 71	Профиль \| \| #3	Добавлено: 02.02.06 20:13
	Спасибо, косяк сдесь был h = FreeFile Open "c:\a" For Input Access Read As h h2 = FreeFile Open "c:\b" For Output Access Write As h2 Ответить

Номер ответа: 4 Автор ответа: Fever Вопросов: 60 Ответов: 808	Профиль \| \| #4	Добавлено: 03.02.06 17:52
	Я вчерась бросил прогу Invert, это именно то что ты делаешь. Ответить

Номер ответа: 5 Автор ответа: Aндрей ICQ: 259020622 Вопросов: 30 Ответов: 71	Профиль \| \| #5	Добавлено: 03.02.06 19:10
	Спасибо all, уже разобрался, рано запостил. Ответить

Страница: 1 |