Predmet:progres bar
da li se može na ovu funkciju koja vrši pretvaranje karaktera u fajlu u UTF-8
ubaciti progres bar
Public Sub subConvertToUTF8(strPathName As String)
Dim lngI As Long
Dim lngMax As Long
Dim strTempPathName As String
Dim intOrgFileHandle As Integer
Dim intTempFileHandle As Integer
Dim i As Integer
Dim bytInput As Byte
Dim intOutput As Integer
strTempPathName = funGetTempPathName(strPathName)
intOrgFileHandle = FreeFile
Open strPathName For Binary Access Read As intOrgFileHandle
intTempFileHandle = FreeFile
Open strTempPathName For Binary Access Write As intTempFileHandle
subWriteUTF8 intTempFileHandle, &HFEFF 'Byte order mark
Do While Not EOF(intOrgFileHandle)
Get #intOrgFileHandle, , bytInput
intOutput = funConvert(bytInput)
If intOutput <> 0 Then
subWriteUTF8 intTempFileHandle, intOutput
End If
Loop
Close intTempFileHandle
Close intOrgFileHandle
Kill strPathName
Name strTempPathName As strPathName
kada file posjeduje dosta podataka zna da potraje pa bih htio da ugradim
progres bar koji bi pokazivao dokle je funkcija došla sa obradom
pozdrav
Ovaj post je ureden
1
puta. Posljednja izmjena 28.01.2011 15:45 od strane Bosanec.