Обычный код чтения файла на VB6 работает намного быстрее, чем на VB2005 ! ПОЧЕМУ ?

@GIP · Регистрация: 07.04.2010

Переделал прогу с VB6 на VB2005. Она стала работать намного медленнее. Нашел фрагмент кода - виновника,
вот он на VB6:

Visual Basic

Private Sub Command1_Click()
        For i2 = 1 To 1000
            Open "c:\temp\tab.txt" For Input As #2
            Input #2, i9
 
            For i = 1 To 690
                Input #2, i9
            Next
            Close 2
        Next
End Sub

вот он на VB2005:

vb.net

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
        Dim i, i1, i2 As Short
       
        For i2 = 1 To 1000
            FileOpen(2, "c:\temp\tab.txt", OpenMode.Input)
            Input(2, i)
 
            For i = 1 To 690
                Input(2, i1)
            Next
            FileClose(2)
        Next
 
 
 
    End Sub

загружаемый файл во вложении

разница в скорости огромная (в несколько раз), в чем причина ?

@MrCrown · 18.07.2017, 23:24

GIP, Open в VB6 и FileOpen в VB.NET - это не одно и и тоже. В Vb6 не предусмотрено чтение файла целиком,
там все делается в циклах. Поэтому не пытайтесь дословно переводить код. В .NET чтение файла в переменную
делается одной строкой

vb.net

1	Dim str as String = IO.File.ReadAllText("Path")

В вашем же переводе код делает следующее: тысячу раз открывается файл (и 1000 раз закрывается) и в переменную
i считывается текст файла, при этом каждый раз по 690 раз в переменную i1 тоже считывается весь текст.
Отсюда и дикие тормоза.

@Orlangur · 18.07.2017, 23:25

GIP, А что необходимо сделать то? Ну после чтения файла. Может просто все это можно провернуть проще

SoftIce · 19.07.2017, 09:50

Сообщение от MrCrown

В Vb6 не предусмотрено чтение файла целиком,
там все делается в циклах

Да что Вы говорите

. А мужики-то не знают (с).

Visual Basic

  Private Sub ReadFile(ByVal fn As String, ByRef s As String)
    Dim ff As Long 
    ff = FreeFile                               'получаем свободный номер файла
    Open App.Path & "" &  fn For Input As #ff            'открываем файл для чтения
         s=Input(LOF(ff), #ff)             'считываем текстовый файл целиком
    Close #ff 
End Sub

@MrCrown · 19.07.2017, 10:11

Сообщение от SoftIce

Да что Вы говорите . А мужики-то не знают

SoftIce, да, это я что-то не по делу ляпнул

VB6 подзабыл основательно

@GIP · 19.07.2017, 19:42 **[ТС]**

большое спасибо за ответы, переколбасю код....

@Orlangur Лень — мое второе и 2961 / 2190 / 639 Регистрация: 28.11.2014 Сообщений: 3,343 Записей в блоге: 2
	18.07.2017, 23:25	3
	GIP, А что необходимо сделать то? Ну после чтения файла. Может просто все это можно провернуть проще 0

@MrCrown 1377 / 1282 / 297 Регистрация: 03.10.2012 Сообщений: 1,342
	19.07.2017, 10:11	5
	Сообщение от SoftIce Да что Вы говорите . А мужики-то не знают SoftIce, да, это я что-то не по делу ляпнул VB6 подзабыл основательно 0

@GIP 4 / 4 / 0 Регистрация: 07.04.2010 Сообщений: 261
	19.07.2017, 19:42 [ТС]	6
	большое спасибо за ответы, переколбасю код.... 0

Опции темы