Вопрос : Нужно оптимизировать режим ыборкы данных в VB

Доброе утро,

I имеет архив 20MB размежеванный трубой который был ехпортирован от прогресса 9.1e.  Оно содержит «как квалификаторы текста.  Моя проблема что некоторые поля текста содержат линией проломами (CRLF), которая будет также конец показателя marker.

I написала прикрепленное Кодего для того чтобы обнажать вне двойные цитаты и после этого извлечь CRLFs которые врезаны в полях текста.  Я радостен сказать Кодего works.

HOWEVER, он кажется что он примет около 10 часов для того чтобы прочитать архив внутри, некоторое время unkown обрабатывать и после этого вероятно другие 10 часов писать обновленную заднюю часть архива вне.  

So, котор я смотрят, что оптимизирую процесс oh говорит день или 2.  Я искал более лучшие методы для как прочитать и написать но не smog вычислять архив out.

The второго будет этапом 20KB данных показывая паразитная помощь CRLFs.

Any больш была оценена.  Я не самолюбив о разрешение, я могу бросить Кодего вне.  Если будет дорога ехпортировать от прогресса без дополнительного CRLFs или более лучший язык, то (хотя VB будет единственной вещью, котор мы устанавливали) или более лучший алгоритм довольно чем using блок, я буду open.

Thank вы заранее для вашей помощи. class= " lineNumbers " >

1 >


Sub ReadChars " prettyprint " " class= id= " codeSnippet766107 >
 strPattern после этого переход Skip1
      strCharacters (I + 1) = Chr$ (0)
      strCharacters (I + 2) = Chr$ (0)

      iий = I + 2
Skip1:
    iий = I + 1

Петля



'Извлекайте CR/LF между цитатами
iий = 0
j = 0


Не сделать до I = intCharcount - 1

   Если strCharacters (I) = Chr$ (34) после этого
    booIsQuote = не booIsQuote
    Переход скип
    Закончитесь если
   Если (strCharacters (I) = Chr$(10) или strCharacters (I) = Chr$(13)) и booIsQuote после этого
    strCharacters (I) = ««
    Закончитесь если
    
скип:
   iий = I + 1
   
Петля


'Напишите блок к архиву

Установите outfso = CreateObject («Scripting.FileSystemObject»)
Установите outfile = outfso.createtextfile («x:\TCB\Purchasing\08 - 09 \ ERP \ преобразование данных \ o_bp-inspect1.txt», поистине)

iий = 0
Не сделать до I = intCharcount - 1

	outfile.write (strCharacters (I))
	iий = I + 1

Петля


outfile. Конец

Подводная лодка конца
class= " ясное " > 

  
  class= " ясное " > 

> " codeSnippet " class= 

           class= " lineNumbers " 
           class= 

             
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

           

          class= " notpretty " >0 id= " codeSnippet766113 " 
           
         
       

   
class= 

Ответ : Нужно оптимизировать режим ыборкы данных в VB

Бедный человек iий себя судимый но google пришли вверх с множеством вариантов.

Верхняя часть списка: http://www.soft32.com/download_194850.html

Freeware- смотрит просто и эффективным.

L