A boa manhã,
I tem uma lima 20MB limitada tubulação que seja exportada do progresso 9.1e. Contem “como qualificadores do texto. Meu problema é que alguns campos do texto contêm a linha rupturas (CRLF), que é igualmente a extremidade de registro marker.
I escreveu o código unido para descascar para fora as citações dobro e para remover então o CRLFs que são encaixadas nos campos do texto. Eu estou contente de dizer o código works.
HOWEVER, parece que tomará aproximadamente 10 horas para ler dentro a lima, algum tempo do unkown para processar para fora e outras 10 horas para escrever então provavelmente a parte traseira atualizado da lima. o
So que eu estou olhando para aperfeiçoar o processo por oh diz um dia ou dois. Eu tenho procurado melhores métodos para que como leia e escreva mas não poderia figurar lima de out.
The segundo é um segmento 20KB dos dados que mostram que a ajuda especulativo de CRLFs.
Any estaria apreciada extremamente. Eu não sou orgulhoso sobre o que a solução é, mim posso jogar o código para fora. Se há uma maneira de exportar do progresso sem o CRLFs adicional ou uma língua melhor (embora VB é a única coisa que nós instalamos) ou um algoritmo melhor um pouco do que using uma disposição, eu sou open.
Thank você adiantado para seu auxílio. class= " lineNumbers " >1 do >
Sub codeBody ReadChars do " prettyprint " " do class= do id= " codeSnippet766107 do > então Skip1 empreendedores strPattern dos strCharacters (i + 3)
strCharacters (i + 1) = Chr$ (0)
strCharacters (i + 2) = Chr$ (0)
i = i + 2
Skip1:
i = i + 1
Laço
'Remover CR/LF entre citações
i = 0
j = 0
Fazem até i = o intCharcount - 1
Se strCharacters (i) = Chr$ (34) então
booIsQuote = não booIsQuote
Faixa clara empreendedores
Terminar se
Se (strCharacters (i) = Chr$ (10) ou strCharacters (i) = Chr$ (13)) E booIsQuote então
strCharacters (i) = ““
Terminar se
faixa clara:
i = i + 1
Laço
'Escrever a disposição à lima
Ajustar o outfso = o CreateObject (“Scripting.FileSystemObject”)
Ajustar outfile = outfso.createtextfile (“x:\TCB\Purchasing\08 - 09 \ ERP \ conversão de dados \ o_bp-inspect1.txt”, verdadeira)
i = 0
Fazem até i = o intCharcount - 1
outfile.write (strCharacters (i))
i = i + 1
Laço
outfile. Fim
Submarino da extremidade
class= > " desobstruído " de |
class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do
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= >0 " notpretty " do id= " codeSnippet766113 " do
|
