I have been smoking for so long that I don't think an app would help me. I have been smoking for a big part of my life. And to be honest, I haven't been feeling so good lately. This is why I started vaping. At first, I was skeptical, but then I understood that this would do less harm to my body than...

You could try the barebones ushort pointer to handle non ascii text. This ensures you can capture wchr(0) if needed. You can overload (the subs) to handle ascii. The C runtime is needed to block load block save and handle non ascii filenames. #include "crt.bi" #include "file.bi"...

At first, I tried using BINARY type to read, soon I canceled this idea due to unsupported set encoding type. I also tried VB code. However, it seems is not compatible with FB. Function LoadFile(ByRef filename As String,code as string="ascii") As string Dim h As Integer Dim txt As String di...

Split function delimiter : by default one space limit by default all the substrings (could be 1, 2,..) sub split(res() as string,strg as string,delim as string=" ",limit as integer=-1) dim as integer resmax=0 dim as integer strglen=len(strg),posinstrg=1,delimlen=len(delim),delimfound if s...

I wanted to ask if there was a way to convert the two types in a way that was almost lossless in performance.
...Or tell me if have some function like VB split() .
It's painful to have no Split function in Freebasic.

angros47 wrote: ↑Mar 28, 2022 8:41 In FreeBasic the equivalent of "char**" is "zstring ptr ptr", not "zstring ptr"

Thanks. After the change, it worked well.

Static libraries can print processed data using printf() . But the main program can not read and output some confusing characters( such as 館?,\u9928\u0017 Look like memory leak). How to solve it? 1.bas Extern "C" Lib "split" Declare function split(arr as zstring ptr, str as zstri...

Possible small simplification: ..... Type VarData VString As String Ptr VDou As Double VInt As Integer 'Vptr As Any Ptr VPtr As VarData Ptr Declare Function GetType() As Short 'Declare Function GetData() AS String End Type ..... ' #define cptrz(ss) Cast(VarData Ptr, ss) ..... Sub FBArray.Add(begin ...

I apply this class to the language I am developing test code #define UNICODE #lang "FB" #include "fbclass.inc" Dim b as FBArray b.init 10 dim ss as string ptr=New String("1") b.add(0,Type<vardata>(ss, OTHER)) dim s2 as string ptr=New String("2") b.add(1,Type<v...

1.) a GNU static C/C++ lib name must end with ".a" Microsoft C/C++ used ".lib" libGetToken.a 2.) "Type Token" must be defined before first use in any declared function/sub statement. Joshy I know what you wanted to express. The "lib" is my typo error now i co...

In fact, almost all of the VFB help file content comes from the wiki of this website, but it has been Chineseized and localized so that online help can be viewed without the Internet, which is very necessary. However, if you Englishize again, it is very difficult, because its content is all composed...

my static library:https://github.com/3XDot/GetToken.a my calling code (Minimized) 'in FF_AppStart #inclib "GetToken" '.a renamed to libGetToken.a Type Token begin As Long=0 _end As long=0 End type Extern "C++" Declare Sub match(sf As ZString Ptr,_data As Token ptr) End Extern '**...

Only part of it (the part written by the author) has been translated. Almost all the rest can be found on the wiki of this website https://i.loli.net/2021/07/13/6mtOM8qbS41PKVI.png . https://drive.google.com/drive/folders/1Zv1y65eUl9m4EHpvj0OIuKZj7L6D5ZqS?usp=sharing how to use 1. Download 2. Rename...