arcgis 标注按字数个数换行 FindLabel

Function FindLabel([desp])
        Dim text, count, lenght, result, num
        text = [desp]
        count=18
        lenght = Len(text)
        If lenght > count Then
            'result=left([desp],count) & chr(13) & right([desp],len([desp])-count)
            num = lenght / count
            If lenght Mod count <> 0 Then
                num = num + 1
            End If

            Dim l
            For i = 0 To num Step 1
                l = Len(text)
                If l > count Then
                    result=result&left(text, count) & Chr(13)
                    text = Right(text, l - count)
                Else
                    result=result&text
                End If
            Next
        Else
            result = text
        End If
        FindLabel = result
    End Function

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值