Kad je takmicenje u pitanju to ne moze da prodj bez mene. heheheh...
Code:
Private Sub BinLaden(FileName As String)
Dim sFile As String, sFined As String, sOst As String
Dim lEnd As Long, lStart As Long
Dim hFile As Long
Const lCr = 2
hFile = FreeFile
Open FileName For Input As #hFile
sFile = StrConv(InputB(LOF(hFile), hFile), vbUnicode)
Close hFile
lStart = 1
lEnd = InStr(lStart, sFile, vbCrLf)
Do While Not lEnd = 0
sFined = Mid(sFile, lStart, lEnd - lStart + lCr)
sOst = Replace(sFile, sFined, "", lEnd + lCr)
sFile = Left(sFile, lEnd + 1) & sOst
lStart = lEnd + lCr
lEnd = InStr(lStart, sFile, vbCrLf)
Loop
On Error Resume Next
Kill FileName
hFile = FreeFile
Open FileName For Append As #hFile
Print #hFile, sFile
Close hFile
End Sub
U vecini slucajeva ovaj kod je najbrzi, mada bi mjerodavnije bilo da se testiraju na istom file-u sve tri funkcije.
@Shadowed: onaj rar sto si okacio u prethodnoj poruci ne valja, ne mogu da ga otvorim.
Ero S Onoga Sveta