"Wish List" Item

Here one can report bugs or hold discussions about bugs updates and work arounds.
Post Reply
Darren
Posts: 63
Joined: Wed May 11, 2011 11:55 am

"Wish List" Item

Post: # 955Post Darren
Fri Aug 24, 2012 8:24 am

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!!!

Darren
Posts: 63
Joined: Wed May 11, 2011 11:55 am

"Wish List" Item

Post: # 956Post Darren
Sat Aug 25, 2012 9:12 am

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


Marco
Site Admin
Posts: 246
Joined: Sat Sep 15, 2018 8:41 pm

"Wish List" Item

Post: # 957Post Marco
Sat Aug 25, 2012 3:26 pm

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

Darren
Posts: 63
Joined: Wed May 11, 2011 11:55 am

"Wish List" Item

Post: # 958Post Darren
Fri Dec 21, 2012 10:27 am

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!!!

Angel
Posts: 87
Joined: Sat Nov 19, 2011 9:34 am

"Wish List" Item

Post: # 959Post Angel
Sat Dec 22, 2012 10:23 am

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

Post Reply