Can I please ask you to consider adding "Com Interop" capability to the next release of FNXBasic?
Please see the following for an explanation of "Com Interop"
http://msdn.microsoft.com/en-us/library/kew41ycz.aspx
Many thanks in advance!!!
"Wish List" Item
"Wish List" Item
Also, can you please add the function "FileCopy".
This would work in a similar way to "Rename", except that the original file will be kept.
The function would be something like...
FileCopy OldName, NewName
This would work in a similar way to "Rename", except that the original file will be kept.
The function would be something like...
FileCopy OldName, NewName
"Wish List" Item
ok i added to the todo list.
in the meantime you can use the solotion i mentioned in the general board, i hope.
best regards
in the meantime you can use the solotion i mentioned in the general board, i hope.
best regards
"Wish List" Item
Can you please add "instrrev" to the next release?
This will work similar to "instr" except that it will start at the "end" of the string and work "backwards".
So therefore instrrev("hello world", "o") will return 4
Many thanks!!!
This will work similar to "instr" except that it will start at the "end" of the string and work "backwards".
So therefore instrrev("hello world", "o") will return 4
Many thanks!!!
"Wish List" Item
The following code performs this function.
`code
Object frmForm As Form
Caption="frmForm"
Center
Object btnButton As Button
Tag=0
Top=10
Left=10
Caption="Instrrev"
Hint="This is a button"
Showhint=True
Onclick=button_OnClick
End Object
End Object
frmForm.Showmodal
`=============================================
Sub button_OnClick
Dim cadena As String, funcInstrrev As Integer
cadena="Hello world"
FuncInstrrev=instrrev(cadena,"o")
Showmessage FuncInstrrev
End Sub
`=============================================
Function instrrev (strString As String,SubString As String) as Integer
Dim posi As Integer
posi=0
posi=Rinstr(strString,SubString)
Result= (Len(strString)-posi)+1
End Function
`code
Object frmForm As Form
Caption="frmForm"
Center
Object btnButton As Button
Tag=0
Top=10
Left=10
Caption="Instrrev"
Hint="This is a button"
Showhint=True
Onclick=button_OnClick
End Object
End Object
frmForm.Showmodal
`=============================================
Sub button_OnClick
Dim cadena As String, funcInstrrev As Integer
cadena="Hello world"
FuncInstrrev=instrrev(cadena,"o")
Showmessage FuncInstrrev
End Sub
`=============================================
Function instrrev (strString As String,SubString As String) as Integer
Dim posi As Integer
posi=0
posi=Rinstr(strString,SubString)
Result= (Len(strString)-posi)+1
End Function