problemt är när jag försöker läsa filen så vägrar vb att läsa in den pgr av (ASCHII tecken 0) det jag behöver jag hjälp med är att ta väck ASCHII tecken 0 och sedan läsa in den stora filen i en textbox!
snälla hjälp mig!! har provat det lila jag kan om vb men uan något störe resultat.
Ps ni kan få en kopia av filen för test!

(filens storlek är ca 500-600Kb

filen kan se utt så här. (detta är endast ett litet exempel av filen)
(går ej att kopiera ASCHII tecken 0)

% 100.
( UP ENDE FRAESBEARBEITUNG )
G79 E10000=1 N22
N20 M50 M5
IF E77005=7 AND E78005=8 THEN
N22 G0 G40 G52 Z[H_WZWPOS]
(här ligger tex ASCHII tecken 0)
% 200
G0 G52 C0
ELSE
N22 G0 G40 G52 Z[H_WZWPOS]
% 101
(här ligger tex ASCHII tecken 0)
N25 T=0 G77 H9950
N50 (ENDE UP100)
M92
M90
M100
M108
(här ligger tex ASCHII tecken 0)
(osv)

Hade gärna haft en snygg och snabb lösning, men du kan testa om det här duger (typ 8 sek för en 650kb fil). Du bör också prova med en Rich Text Box istället för Text Boxen.
<code>

Dim tString As String
Dim fStr As String
Dim tChr As String
Dim tempStr As String
fStr = Space(3000)
Open ("c:\C2.EXE") For Binary As #1
For i = 1 To FileLen("c:\C2.EXE") Step 3000
tempStr = ""
Get #1, i, fStr
For Y = 1 To 3000
tChr = Mid(fStr, Y, 1)
If Not tChr = Chr$(0) Then tempStr = tempStr & tChr
Next Y
tString = tString & tempStr
Next i
Close #1
rtext1.Text = tString

</code>
Och om du bara vill läsa in filen i en Rich Text Box Utan att ta bort Chr(0)
så ska detta funka.
<Code>

Open ("c:\c2.exe") For Binary As #1
RichTextBox1.Text = Input(LOF(1), 1)
Close #1

</code>

Ush... Eller förlåt men det är inte bra att konkratinera ihop en hel fil. Tar väldigt mycket resurser i anspråk när man alokerar om plats. Testa:

<code>
Dim strRow As String
Dim strText() As String
Dim lngCount As Long
Dim i as long
strRow = Space(3000)
Open ("c:\C2.EXE") For Binary As #1
lngCount = (LOF(1) \ 3000)
Redim strText(1 to lngCount)
For i = 1 To lngCount
Get #1, , strRow
strText(i) = Replace(strRow, vbNullChar, "")
Next
Close #1
rtext1.Text = Join(strText)
</code>

Jag håller med dig, den va ingen höjdare. Ett litet tillägg på din kod bara (så man får med sista biten av filen).
<code>

Dim strRow As String
Dim strText() As String
Dim lngCount As Long
Dim i As Long
strRow = Space(3000)
Open ("c:\C2.EXE") For Binary As #1
lngCount = (LOF(1) \ 3000)
If lngCount < (LOF(1) / 3000) Then lngCount = lngCount + 1
ReDim strText(1 To lngCount)
For i = 1 To lngCount
Get #1, , strRow
strText(i) = Replace(strRow, vbNullChar, "")
Next
Close #1
rtext1.Text = Join(strText)

</code>