Abrir pequenho TXT (430Mb)

[MSA_GT 0]

Alguém já tento abrir um TXT deste tamanho?????

 

na verdade este tt é um log que preciso estar importando para um banco, quando fui fazer a tal importação, vi q o tamanho fico além do que imaginava....

 

como posso fazer isso agora, a rotina q uso é a seguinte

 

arq = "d:\Projects\LOG\Log3.txt"
	
	n = FreeFile()
	Open arq For Input As #n
	conteúdo = Input(LOF(n), n)
	Close #n
	
	linhas = Split(conteúdo, vbCrLf)
	tt = UBound(linhas) - 1
	
	For i = 0 To UBound(linhas) - 1
		DoEvents
		Me.Caption = i & "/" & tt
		Data = Mid(linhas(i), 1, 25)
		Data = Format(Data, "dd/mm/yyyy")
		resto = Mid(linhas(i), 28, 999)
		Desc = Split(resto, " ")
		List1.AddItem Replace(Data & " | " & Replace(Desc(7), "IP:'", "") & " | " & Replace(Desc(9), "Website:'", "") & " | " & Replace(Desc(10), "URL:'", ""), "'", "")
	Next

neste caso usei a lista como destino, mas isso vai para um banco mesmo...

 

se alguém souber ou puder me ajudar fico grato

[Paulo Kazumiti 0]

Importa direto no banco sem passar pelo VB.

Se for SQL Server por exemplo, via VB dispara uma Stored Procedure (pesquisa o recurso Bulk Insert).