B4A.PM.JOBI.GET-PACKAGE-NAME

Description

Property	Value
Type	JOBI
Folder	PACKAGES/BEST4AUTOMIC/B4A.PM/SOURCE
Title	Extracts the package name from an object name
Archive Key 1	-
Archive Key 2	-
Created	WRITER/B4A am: 2022-02-02 09:18:50
Last Modified	WRITER/B4A am: 2023-03-01 14:59:54 9 x
Last Used	-

:set &B4AP_PACKAGE_NAME_O# = ""

:set &B4AP_PACKAGE_PREFIX_O# = ""

:set &NAME# = "$OBJECT$"

:set &dot# = str_find( &NAME#, "." )

:if &dot# > 0

:  set &dot# = &dot# - 1

:  set &B4AP_PACKAGE_PREFIX_O# = str_cut( &NAME#, 1, &dot# )

:  p "Prefix: &B4AP_PACKAGE_PREFIX_O#"

:  set &dot# = &dot# + 2

:  set &dot# = str_find( &NAME#, ".", &dot# )

:  if &dot# > 0

:    set &dot# = &dot# - 1

:    set &B4AP_PACKAGE_NAME_O# = str_cut( &NAME#, 1, &dot# )

:  else

:    set &B4AP_PACKAGE_NAME_O# = &NAME#

:  endif

:  p "Package: &B4AP_PACKAGE_NAME_O#"

:endif