制作一款打飞机游戏22：表格导出

编辑器功能扩展

今天，我想让编辑器能够处理一个数组，这是编辑器将要编辑的东西，它只编辑数组。这些区域在后续的不同版本的编辑器中会有不同的含义，但现在我想创建一个模板，能够加载一个二维数组，并将二维数组写回文件。

好吧，让我们马上开始。首先，我想把一个数组放到我们的东西里面，就像这样：0, 1, 2, 3，这些只是一些数字。这里有个小问题，这是一个字符串，里面包含了一些数字，我们将使用split函数将它拆分成一个数组。我觉得这样更好，尽管我们也可以直接放一个数组在这里，但这是不可行的。

关于导入功能，有一个重要的事情我没有提到，那就是这并不能绕过令牌限制。当你把这个文本文件的内容粘贴到你的 PICO-8 卡上时，你会失去那些令牌。如果现在选择这个，它显示是0个令牌，但一旦执行并且测试内容等于某些东西，你就会支付那些令牌。如果代码超过了令牌限制（比如8100个令牌），那么你的卡就不会运行。

所以，我不能把所有的令牌密集型的东西都放到一个文本文件中然后导入，那样是行不通的。有其他方法可以做到这一点，但不是这种方法。

实现细节与优化

无论如何，我们在这个文本文件里的东西最好已经是令牌优化过的，尤其是因为这里有很多数据。所以，我们想保存一个字符串，然后把它拆分成一个数组。但如果我们这样做，我们需要对导入的数据运行split函数，为什么不直接把这个split写在我们的文本文件里呢？

好吧，我来保存这个并看看会发生什么。现在，我们不能再把这个数据打印到屏幕上了，因为现在这个数据在我们的文本文件里是一个数组，我们不能直接打印它。现在我们需要做的是遍历这些数据，我们可以通过一个循环来实现，比如for i = 1, #data do，然后使用bgprint(datai])来打印每个数据。

但是，问题是我们把所有的数字都画在了同一个地方，所以我们需要让它们稍微下移一点。我们可以这样做：y = 2 + 7 * i，这样随着我们在屏幕上绘制下一个项目，y值就会增加。现在我们有了一个像表格一样的项目列表，很好。

接下来，我们在PICO-8（或Lua）中有一个技巧，如果你运行一个函数，而这个函数只接受一个字符串作为参数，你可以省略引号和括号。这也会执行，我们将利用这一点。

导出功能实现

现在，我想实现导出功能。稍后我们将为多维数组实现导出功能，但现在我想先写一个简化版的，为一维数组实现导出功能。为此，我想做一些小的改动。比如，我们想要编辑器能够处理不同的变量名，但内部的变量名应该始终保持不变。

所以，我想创建一个地方，你可以自定义编辑器来编辑不同类型的数据。我想在文本文件中保存要写入的文件名，以及从哪个文件名写入。但是，include语句不接受变量，你必须拼写出文件名，比如include "text.txt"，我们不能这样做。所以，我们需要在文本文件中保存要写入的文件名，这样我们的导出函数就可以使用它。

我们还想有一个叫data的变量，我们将把这个变量设置为test，在这个例子中，test是我们从文件中获取的变量。每次在编辑器中工作时，我们都会使用这个data变量。

现在，让我们去实现导出功能。我们肯定要保留这个print()语句，我们只是想编辑这个局部变量s。我们想把所有的数据格式化成字符串，然后把它写入s，再把s写出来。

哦，对了，我们还需要在字符串中包含数组的名字，因为导出时需要知道应该把哪个数组写入导出文件。

接下来，我们要遍历所有的数据，并把它们写入字符串。我们可以使用与在屏幕上打印数据相同的逻辑。但是，我们还需要在数字之间添加逗号，而且最后一个数字后面不应该有逗号。我们可以通过在添加数字之前检查是否是第一个数字来解决这个问题。

现在，我们保存并运行它，看看是否有效。我们需要找一种方法把调试代码从我们的主程序中引入到这里，这样我们就可以调试导出功能是否工作正常。但现在，我们先看看记事本是否有任何变化。看起来没有变化，这实际上是件好事，因为如果我们没有对底层数据进行任何更改，我们希望代码导出的是相同的东西。

现在，这个导出功能已经可以使用一维数组了。接下来，我想让它能够处理二维数组。为此，我们需要添加一些东西，我想复制粘贴我们的split2d函数到这里。这个函数很重要，因为它将把一个字符串拆分成二维数组，就像我们在主程序中做的那样。

我们要使用split2d函数，并用管道符|来分隔数据。现在，我们要把数据绘制到屏幕上，所以我们需要一个嵌套的循环。但是，我们之前遇到的问题是所有的数字都重叠在一起，所以我们需要添加一些偏移量来让它们分开显示。

现在，我们需要实现二维数组的导出功能。这基本上与一维数组的导出相同，但我们需要在数组之间插入管道符|，在数组内的元素之间插入逗号。而且，我们需要确保第一个数组和每个数组的第一个元素前面没有额外的分隔符。

现在，我们保存并导出数据，看看是否一切正常。看起来一切正常，数据已经成功导出。现在，我想看看这是否能与我们实际的数据一起工作，所以我把之前的一些数组数据复制粘贴到这里，并进行了一些小的调整。现在，我们可以运行它，看看是否能成功导入和导出这些数据。

看起来一切正常，数据已经成功导入和导出。现在，我们可以把这个编辑器集成到我们的工作流程中。我们有一个完整的导入导出循环，现在我想开始着手编辑器的UI设计。

pico-8 cartridge // http://www.pico-8.com
version 41
__lua__function _init()--- customize here ---#include shmup_myspr.txtfile="shmup_myspr.txt"arrname="myspr"data=myspr----------------------debug={}_drw=draw_table_upd=update_tablemenuitem(1,"export",export)reload(0x0,0x0,0x2000,"cowshmup.p8")
endfunction _draw()_drw()-- debug --cursor(4,4)color(8)for txt in all(debug) doprint(txt)end
endfunction _update60()_upd()
end
-->8
--drawfunction draw_table()cls(2)--spr(0,0,0,16,16)for i=1,#data dofor j=1,#data[i] dobgprint(data[i][j],2+18*j,2+8*i,7)endend
end
-->8
--updatefunction update_table()end
-->8
--toolsfunction bgprint(txt,x,y,c)print("\#0"..txt,x,y,c)
endfunction split2d(s)local arr=split(s,"|",false)for k, v in pairs(arr) doarr[k] = split(v)endreturn arr
end
-->8
--i/o
function export()local s=arrname.."=split2d\""for i=1,#data doif i>1 thens..="|"endfor j=1,#data[i] doif j>1 thens..=","ends..=data[i][j]endends..="\""printh(s,"test.txt",true)debug[1]="exported!"
end
__gfx__
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00700700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00077000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00077000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00700700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000