SpiderBasic

Code: Select all

Procedure StringByteLength(String$, Format = #PB_Unicode)
  
  Protected sbl
  
  Select Format
    Case #PB_Ascii
      sbl = Len(String$)
    Case #PB_UTF8, #PB_Unicode
      ! v_sbl = new Blob([v_string$]).size;
  EndSelect
  
  ProcedureReturn sbl
  
EndProcedure

Debug StringByteLength("a", #PB_Ascii)
Debug StringByteLength("a", #PB_UTF8)
Debug StringByteLength("a", #PB_Unicode)

Debug StringByteLength("ä", #PB_Ascii)
Debug StringByteLength("ä", #PB_UTF8)
Debug StringByteLength("ä", #PB_Unicode)

Code: Select all

 Structure _membersMemoryFileClass
      eof.w
      flags.w
      fileBase.i
      fileSize.i
      initialSize.i
      initialPageSize.i
      usedFile.i    ;Lof.
      filePointer.i ;Loc.
EndStructure

Global Dim           *Handle._membersMemoryFileClass(1)

memPTR() = *handle(0)\FilePointer;
       
            CompilerIf Defined(SB_Compiler_SpiderBasic, #PB_Constant)
               For i = 0 To lengthToRead - 1
                  PokeB( memoryBuffer, i, PeekB(memPTR(), i + memPTR()\filePointer) )
               Next
            CompilerElse
               CopyMemory(memPTR()\FileBase + memPTR()\filePointer, memoryBuffer, lengthToRead)   
            CompilerEndIf