Read Big File Data And Encoding Data In PowerBuilder
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
//==================================================================== // Function: of_readfile() //-------------------------------------------------------------------- // Description: //-------------------------------------------------------------------- // Arguments: // value string as_file path file mame // reference string as_returnstring data return //-------------------------------------------------------------------- // Returns: string //==================================================================== Integer li_FileNum, loops, j Long flen, bytes_read Integer fh, ret Blob b, tot_b,C String ls_string Long ll_rowerror flen = FileLength(as_file) li_FileNum = FileOpen(as_file, StreamMode!, Read!, LockRead!) If li_FileNum < 0 Then messagebox("Warning", "Read File Error" +as_file) Return 1 End If If flen > 32765 Then If Mod(flen, 32765) = 0 Then loops = flen/32765 Else loops = (flen/32765) + 1 End If Else loops = 1 End If For j = 1 To loops bytes_read = FileRead(li_FileNum, b) tot_b = tot_b + b Next FileClose(li_FileNum) as_returnstring = String(tot_b, EncodingUTF8!) Return 0 |
Good Luck!
Subscribe
Login
0 Comments
Oldest