FB_ARG_RIGHTOF

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgDdfbargrightof
• 最后更新: 2024-06-02

---

编译器内置定义（宏）。

语法

` FB_ARG_RIGHTOF( arg, sep [, ret] )

`

参数

arg

参数

sep

分隔符，显然不同于逗号 (,)

ret

找不到分隔符时的默认返回值

描述

根据分隔符（sep），返回参数（arg）的右侧标记。

（在参数表达式中，标记和分隔符之间必须有空格）

默认情况下，如果未提供默认返回值（ret），当找不到分隔符（sep）时，宏返回空（空标记）。

否则，如果提供了默认返回值（ret），当找不到分隔符（sep）时，宏返回默认返回值（ret）。

示例

start GeSHi

#macro m( arg )
    Scope
        Var v = __FB_ARG_RIGHTOF__( arg, versus, "Not found 'versus'" )
        Print v
    End Scope
#endmacro

m(1 versus 2)
m("left-side" versus "right-side")
m(pi verso 3.14)

Sleep

/' Output:
 2
right-side
Not found 'versus'
'/

end GeSHi

start GeSHi

#macro count( range )
    Scope
        Dim x As Integer = __FB_ARG_LEFTOF__( range, To )
        Dim y As Integer = __FB_ARG_RIGHTOF__( range, To )
        Dim s As Integer = Sgn(y - x)
        Print "Counting " & #range
        For i As Integer = x To y Step s
            Print i
        Next i
    End Scope

#endmacro

count( 4 To 10 )
count( 7 To 2 )

Sleep

/' Output:
Counting 4 To 10
 4
 5
 6
 7
 8
 9
 10
Counting 7 To 2
 7
 6
 5
 4
 3
 2
'/

end GeSHi

版本

• 自 fbc 1.08.0 起

与 QB 的区别

• FreeBASIC 新增

另请参阅

• __FB_ARG_LEFTOF__
• __FB_ARG_COUNT__
• __FB_ARG_EXTRACT__
• __FB_ARG_LISTEXPAND__

返回 目录