• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.6.0
软件大小:29.2M
更新时间:07-29

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[源码分享] 删除数组元素.并减少下标.可能和山海插件里的函数一样. [复制链接]

1#
'例子:
Dim 假装我是一个数组=Array(1,2,3,44,55,66,77,88,99)
TracePrint UBound(数组元素删除)
数组 = 数组元素删除(假装我是一个数组, 3) ''前面是被删除数组,3 是要删除的下标 也就是44,回复看源码
TracePrint UBound(数组元素删除)
Function 数组元素删除(数组, 元素下标)
    For i = 元素下标+1 To UBOUND(数组)
        数组(i-1)=数组(i)    
    Next
    数组(UBOUND(数组)) = Null
    数组元素删除=数组
End Function

2#

学习

3#

学习学习

4#

看源码懂得快

5#

学习一下。

6#

看源码懂得快

熊家班熊叫兽
7#

学习一下

8#

可来没有什么

9#

看看看看研究1

10#

学习一下

11#

突突突

12#

元素删

13#

看看

发新话题 回复该主题