Test

[ThaRubby]

Ing.

[pnish]

That's some lonnng sig you got there ThaRubby. What's the point?

[ThaRubby]

Testing to see how long it can go.
10k pixels was decent, gimp wouldnt save 500k ^.-


Option Explicit



Private Sub Form_Load()

Dim ReadFF As String, strtowrite As String, z%, y%

Open "C:\Documents and Settings\rub3x\Desktop\Nicks.txt" For Input As #1

ReadFF = Input(LOF(1), #1)

Close 1

y = 1: z = 1

Open "C:\file.txt" For Output As 1

Do While InStr(ReadFF, " : ") > 0

z = InStr(y, ReadFF, ":")

z = InStr(z, ReadFF, ":")

strtowrite = Mid(ReadFF, y, z - y + 1) & vbNewLine

Print #1, strtowrite

y = z + y

Loop

Close 1

End Sub

[ThaRubby]

blah..

[dglienna]

3532 names

[ALL]

aasdfec

[ThaRubby]

[ThaRubby]

cfgsdfgdfg

[ALL]

skogima

[ALL]

01100100-01100111-01101100-01101001-01100101-01101110-01101110-01100001
196-103-108-201-101-110-110-97
DO╕╔E66ß

---------------

Now where did i get that from? (dglienna, don't say!)