VBNet - Форум - Проблема записи в файл

Вопрос: Проблема записи в файл Добавлено: 04.07.09 18:41

Автор вопроса: ☺♣FIO♣☺

     Dim txt As IO.StreamReader
        Dim wt As IO.StreamWriter
        Dim line As String
        If Open1.ShowDialog = Windows.Forms.DialogResult.Cancel Then
            Exit Sub
        End If
        If Folder.ShowDialog = Windows.Forms.DialogResult.Cancel Then
            Exit Sub
        End If
        txt = My.Computer.FileSystem.OpenTextFileReader(Open1.FileName)
        Dim text As New Шифр

1:
        line = txt.ReadLine
        Select Case line
            Case "^"
                wt = My.Computer.FileSystem.OpenTextFileWriter(Folder.SelectedPath + "\" + txt.ReadLine, True)
            Case "1"
                Exit Sub
            Case Else
                text.Текст_для_разшифровки = line
                wt.WriteLine(text.Разшифровать)
        End Select
        GoTo 1
    End Sub

Так вот. Это программа считывает из файла по строке. если строка=^ тогда она создаёт файл. 1 - признак конца файла(в самом файле записана 1ка, в самом конце).всё остальное записывает в файл. Программа создаёт файлы, но они пусты=(.
Копмилятор ругается на строку
wt.WriteLine(text.Разшифровать)

что типа переменной tw должно присваеваться значение. Но знак ^ стоит в самом начале файла...
ой, чёта переборщилмаленько...
Ответить

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

Номер ответа: 1 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #1	Добавлено: 04.07.09 18:42
	Как это исправить? Ответить

Номер ответа: 2 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #2	Добавлено: 04.07.09 19:32
	Что за народ пошел. Как можно в дотнете использовать GoTo?! А вообще, я конечно могу ошибаться, давно с дотнетом не кувыркался, но там по-моему Close тоже надо делоть. Ибо ты открыл файл, че-то там сделал, и как порядочный мужик, должен его закрыть. Тобишь перед екситсубом. ЗЫ: А где, сбствн, все? Ответить

Номер ответа: 3 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #3	Добавлено: 04.07.09 20:52
	Да вот так!Это оптимальный вариант. можно было конечно написать do---loop, но я очень ленив чтоб такое писать Ответить

Номер ответа: 4 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #4	Добавлено: 04.07.09 21:14
	А всё ненадо, сам разобрался Ответить

Номер ответа: 5 Автор ответа: Ra$cal ICQ: 8068014 Вопросов: 18 Ответов: 817	Web-сайт: www.rascalspb.narod.ru Профиль \| \| #5	Добавлено: 04.07.09 23:26
	а стока смайлов написать бывло не лень? значит дело скорее не в лени, а в уровне знаний. Ответить

Номер ответа: 6 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #6	Добавлено: 05.07.09 01:45
	Насчитал больше десятка явных багов и недочетов кода Ответить

Номер ответа: 7 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #7	Добавлено: 05.07.09 10:43
	Не, ето фегня. Вот еслиб багов было больше, чем строк - это смачно Ответить

Номер ответа: 8 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #8	Добавлено: 05.07.09 12:05
	И этот код работает на ура! Artyom пишет: Насчитал больше десятка явных багов и недочетов кода Вы скорее всего не поняли что этот код должен выполнять.Вообщем этот код сейчас работает на отлично. Я исправил только 1 ошибку. Всё остальное извращение я сам вижу и прекрасно понимаю.(это не баги, а извращение) Ответить

Номер ответа: 9 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #9	Добавлено: 05.07.09 12:07
	Artyom пишет: Насчитал больше десятка явных багов и недочетов кода Приведёшь их? Ответить

Номер ответа: 10 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #10	Добавлено: 05.07.09 12:17
	VβÐ Uηit, Спасибо. Ответить

Номер ответа: 11 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #11	Добавлено: 05.07.09 12:26
	У меня вредная привычка, писать программы как можно компактнее. VβÐ Uηit пишет: Что за народ пошел. Как можно в дотнете использовать GoTo?! Также привычка писать goto по мере возможности(это из старых языков), а так пишу и так и сяк. Ответить

Номер ответа: 12 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #12	Добавлено: 05.07.09 14:45
	под "недочетами" я также понимал и "извращения". То что код работает верно не означает что в нем нет багов, это только означает что эти баги при определенных идеальных обстоятельствах не проявляются Ответить

Номер ответа: 13 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #13	Добавлено: 08.07.09 08:46
	Ну да, Бранд, ты как всегда, прав. Если на компе будет сидеть линуха, то естественно, код не заработает. Плохой код! А еще, если не будет фреймворка, если винда будет повреждена и т.п. Я понимаю, что ты почитал про то, как большой Билли сказал надо писать гиперсуперкод используя последние модные фишки ООП, работающий даже в радиации, но согласись, иногда это не стоит того. Особенно если учесть, что прогой будут пользоваться пользователи, которым, собственно, как он написан, до большой фени. А если он не будет работать у человека, который сидит под полузащищенным компом или там с сети эту прогу запускает, то это уже проблемы этого человека, что он такое себе устроил. Все-таки таких людей встречается мало. Он же не боеголовку кодит, чтобы все случаи учитывать. PS: Боеголовка на .NET... Мило))) Ответить

Номер ответа: 14 Автор ответа: ☺♣FIO♣☺ Вопросов: 35 Ответов: 160	Профиль \| \| #14	Добавлено: 21.07.09 18:17
	а как сделать чтоб робило и на линухе и на луне? Ответить

Номер ответа: 15 Автор ответа: Ra$cal ICQ: 8068014 Вопросов: 18 Ответов: 817	Web-сайт: www.rascalspb.narod.ru Профиль \| \| #15	Добавлено: 21.07.09 21:51
	выбросить дотнет и учить c++. или идти в команду разработчиков mono Ответить

Страница: 1 | 2 |