数组删除问题

zxczxc1968531

变量A=数组（0，1，2，3，4）
数组指定位置删除(A,2)//删除下标2的值后
消息框（A）//这里发现删除后的数组为数组（0，1，3，4，5=“”），2键值删除了，但是后面多出一个下标5来
//重新获取数组
变量 数组长度=数组大小（A）//数组长度这里依然是5，A依然是（0，1，3，4，5=“”）
//这样在我将数组每一个键输入文本文档成为一行，这里就会出现一个空行，不是最后一行空行，而是删除的那一行是空行
看官方视频，这里重新获取数组后可以重新排序，那么6.2版本这个好像不行，怎样才能让数组重新排序成为数组（0，1，2，3）或者数组（0，1，2，3，4=“”）也行，试过数组删除等都达不到效果

zxczxc1968531

算了加个判断语句就也行，如果为空行的行号就不写入字符，这样就没空行了，只不过TC这个数组大小改了有意思吗，照着视频一样写下来就是不一样
如果(i==行号-1)
        否则
        文件写入一行字符(文件句柄,文件内容数组[i])

言术

功能 开始_点击()
    调试输出(数组删除(数组(0,1,2,3,4),2))
结束

功能 数组删除(数组名,删除位置)
    变量 大小=数组大小(数组名)
    遍历(变量 i = 删除位置; i < 大小-1; i++)
        数组名[i] = 数组名[i+1]
    结束
    数组指定位置删除(数组名,大小-1)
    返回 数组名
结束

//我没做任何错误判断,只是大概写下思路

zxczxc1968531

言术 发表于 2016-8-22 17:34
功能 开始_点击()
    调试输出(数组删除(数组(0,1,2,3,4),2))
结束

功能 按钮1_点击()
    修改文件("C:\\Users\\Administrator\\Desktop\\新建文本文档.txt","删除","5","改掉")  
   
结束
功能 修改文件(文件,类型,行号,内容)
    变量 长度=文件长度(文件路径)
    变量 文件句柄=文件打开(文件路径)
    如果(文件句柄==-1)
        返回 "文件不存在"
    结束
    变量  文件内容=文件读字符(文件句柄,长度)
    变量 文件内容数组=数组()
    字符串分割(文件内容,"\r\n",文件内容数组)
   
    消息框(文件内容数组)
    变量 数组长度=数组大小(文件内容数组)
   
    如果(数组长度<行号)
        返回 "行号超过文件最大行数"
    结束
   
    选择(类型)
        条件 "删除"
        
        数组指定位置删除(文件内容数组,4)
        
        消息框(文件内容数组)
        条件 "修改"
        文件内容数组[行号-1]=内容
        默认
        返回 "没有:"&类型&"这个操作类型"
    结束
    文件关闭(文件句柄)
    文件句柄=文件打开(文件路径,"读写|文件要存在|共享写|共享读|清空文件")
   
    数组长度=数组大小(文件内容数组)
   
    消息框(文件内容数组)
   
    遍历(变量 i = 0; i < 数组长度; i++)
        如果(i==行号-1)
        否则
            文件写入一行字符(文件句柄,文件内容数组)
            消息框(文件内容数组)
        结束
    结束
    文件关闭(文件句柄)
结束
我意思是去掉 如果(i==行号-1)这个就会出现空一行，这个是我自己加上去的，  第二次再用这个 数组长度=数组大小(文件内容数组)完全没有意思，数组没任何变化，并没有重新按序列排列，视频里面用这个看效果是重新排列了的，难道是版本改了数组一些功能？

言术

zxczxc1968531 发表于 2016-8-22 18:44
功能 按钮1_点击()
    修改文件("C:\\Users\\Administrator\\Desktop\\新建文本文档.txt","删除","5"," ...

功能 修改文件(文件路径,行号,修改类型="删除",修改内容="")
    选择(修改类型)
        条件 "删除"
        文件删指定行(文件路径,行号)
        条件 "覆盖"
        文件删指定行(文件路径,行号)
        文件指定行插入(文件路径,修改内容,行号)
    结束
结束