Snobol4【1】 语言实战：Excel 工作表【2】转 XML 文档【3】实战
Snobol4 是一种古老的编程语言，最初由 Calvin Mooers【4】 在 1962 年设计。它以其简洁的语法和强大的字符串处理【5】能力而闻名。尽管 Snobol4 在现代编程语言中并不常见，但它在处理文本和字符串方面仍然有其独特的优势。本文将探讨如何使用 Snobol4 语言将 Excel 工作表转换为 XML 文档。
Snobol4 简介
Snobol4 是 Snobol 系列语言的第四个版本，它继承了 Snobol3 的特点，并增加了一些新的功能。Snobol4 的语法简单，易于理解，特别适合于文本处理任务。以下是 Snobol4 的一些基本语法元素：
- 变量：使用 `$` 符号表示。
- 字符串：使用单引号 `''` 或双引号 `""` 括起来。
- 模式匹配【6】：使用 `@` 符号进行模式匹配。
- 控制结构【7】：包括 `if-then-else`、`while` 和 `for` 循环。
实战：Excel 工作表转 XML 文档
1. 准备工作
我们需要准备一个 Excel 工作表和一个 Snobol4 编译器【8】。由于 Snobol4 并不直接支持读取 Excel 文件，我们需要先将 Excel 工作表的内容转换为纯文本格式。这可以通过 Excel 的“另存为”功能实现，将文件保存为 CSV【9】 或纯文本格式。
2. Snobol4 代码编写
以下是一个简单的 Snobol4 脚本，用于将 CSV 文件转换为 XML 文档：
```snobol
:read line
| ' ' == line | ' ' == line[1] | ' ' == line[2] | ' ' == line[3] | ' ' == line[4] | ' ' == line[5] | ' ' == line[6] | ' ' == line[7] | ' ' == line[8] | ' ' == line[9] | ' ' == line[10] | ' ' == line[11] | ' ' == line[12] | ' ' == line[13] | ' ' == line[14] | ' ' == line[15] | ' ' == line[16] | ' ' == line[17] | ' ' == line[18] | ' ' == line[19] | ' ' == line[20] | ' ' == line[21] | ' ' == line[22] | ' ' == line[23] | ' ' == line[24] | ' ' == line[25] | ' ' == line[26] | ' ' == line[27] | ' ' == line[28] | ' ' == line[29] | ' ' == line[30] | ' ' == line[31] | ' ' == line[32] | ' ' == line[33] | ' ' == line[34] | ' ' == line[35] | ' ' == line[36] | ' ' == line[37] | ' ' == line[38] | ' ' == line[39] | ' ' == line[40] | ' ' == line[41] | ' ' == line[42] | ' ' == line[43] | ' ' == line[44] | ' ' == line[45] | ' ' == line[46] | ' ' == line[47] | ' ' == line[48] | ' ' == line[49] | ' ' == line[50] | ' ' == line[51] | ' ' == line[52] | ' ' == line[53] | ' ' == line[54] | ' ' == line[55] | ' ' == line[56] | ' ' == line[57] | ' ' == line[58] | ' ' == line[59] | ' ' == line[60] | ' ' == line[61] | ' ' == line[62] | ' ' == line[63] | ' ' == line[64] | ' ' == line[65] | ' ' == line[66] | ' ' == line[67] | ' ' == line[68] | ' ' == line[69] | ' ' == line[70] | ' ' == line[71] | ' ' == line[72] | ' ' == line[73] | ' ' == line[74] | ' ' == line[75] | ' ' == line[76] | ' ' == line[77] | ' ' == line[78] | ' ' == line[79] | ' ' == line[80] | ' ' == line[81] | ' ' == line[82] | ' ' == line[83] | ' ' == line[84] | ' ' == line[85] | ' ' == line[86] | ' ' == line[87] | ' ' == line[88] | ' ' == line[89] | ' ' == line[90] | ' ' == line[91] | ' ' == line[92] | ' ' == line[93] | ' ' == line[94] | ' ' == line[95] | ' ' == line[96] | ' ' == line[97] | ' ' == line[98] | ' ' == line[99] | ' ' == line[100] | ' ' == line[101] | ' ' == line[102] | ' ' == line[103] | ' ' == line[104] | ' ' == line[105] | ' ' == line[106] | ' ' == line[107] | ' ' == line[108] | ' ' == line[109] | ' ' == line[110] | ' ' == line[111] | ' ' == line[112] | ' ' == line[113] | ' ' == line[114] | ' ' == line[115] | ' ' == line[116] | ' ' == line[117] | ' ' == line[118] | ' ' == line[119] | ' ' == line[120] | ' ' == line[121] | ' ' == line[122] | ' ' == line[123] | ' ' == line[124] | ' ' == line[125] | ' ' == line[126] | ' ' == line[127] | ' ' == line[128] | ' ' == line[129] | ' ' == line[130] | ' ' == line[131] | ' ' == line[132] | ' ' == line[133] | ' ' == line[134] | ' ' == line[135] | ' ' == line[136] | ' ' == line[137] | ' ' == line[138] | ' ' == line[139] | ' ' == line[140] | ' ' == line[141] | ' ' == line[142] | ' ' == line[143] | ' ' == line[144] | ' ' == line[145] | ' ' == line[146] | ' ' == line[147] | ' ' == line[148] | ' ' == line[149] | ' ' == line[150] | ' ' == line[151] | ' ' == line[152] | ' ' == line[153] | ' ' == line[154] | ' ' == line[155] | ' ' == line[156] | ' ' == line[157] | ' ' == line[158] | ' ' == line[159] | ' ' == line[160] | ' ' == line[161] | ' ' == line[162] | ' ' == line[163] | ' ' == line[164] | ' ' == line[165] | ' ' == line[166] | ' ' == line[167] | ' ' == line[168] | ' ' == line[169] | ' ' == line[170] | ' ' == line[171] | ' ' == line[172] | ' ' == line[173] | ' ' == line[174] | ' ' == line[175] | ' ' == line[176] | ' ' == line[177] | ' ' == line[178] | ' ' == line[179] | ' ' == line[180] | ' ' == line[181] | ' ' == line[182] | ' ' == line[183] | ' ' == line[184] | ' ' == line[185] | ' ' == line[186] | ' ' == line[187] | ' ' == line[188] | ' ' == line[189] | ' ' == line[190] | ' ' == line[191] | ' ' == line[192] | ' ' == line[193] | ' ' == line[194] | ' ' == line[195] | ' ' == line[196] | ' ' == line[197] | ' ' == line[198] | ' ' == line[199] | ' ' == line[200] | ' ' == line[201] | ' ' == line[202] | ' ' == line[203] | ' ' == line[204] | ' ' == line[205] | ' ' == line[206] | ' ' == line[207] | ' ' == line[208] | ' ' == line[209] | ' ' == line[210] | ' ' == line[211] | ' ' == line[212] | ' ' == line[213] | ' ' == line[214] | ' ' == line[215] | ' ' == line[216] | ' ' == line[217] | ' ' == line[218] | ' ' == line[219] | ' ' == line[220] | ' ' == line[221] | ' ' == line[222] | ' ' == line[223] | ' ' == line[224] | ' ' == line[225] | ' ' == line[226] | ' ' == line[227] | ' ' == line[228] | ' ' == line[229] | ' ' == line[230] | ' ' == line[231] | ' ' == line[232] | ' ' == line[233] | ' ' == line[234] | ' ' == line[235] | ' ' == line[236] | ' ' == line[237] | ' ' == line[238] | ' ' == line[239] | ' ' == line[240] | ' ' == line[241] | ' ' == line[242] | ' ' == line[243] | ' ' == line[244] | ' ' == line[245] | ' ' == line[246] | ' ' == line[247] | ' ' == line[248] | ' ' == line[249] | ' ' == line[250] | ' ' == line[251] | ' ' == line[252] | ' ' == line[253] | ' ' == line[254] | ' ' == line[255] | ' ' == line[256] | ' ' == line[257] | ' ' == line[258] | ' ' == line[259] | ' ' == line[260] | ' ' == line[261] | ' ' == line[262] | ' ' == line[263] | ' ' == line[264] | ' ' == line[265] | ' ' == line[266] | ' ' == line[267] | ' ' == line[268] | ' ' == line[269] | ' ' == line[270] | ' ' == line[271] | ' ' == line[272] | ' ' == line[273] | ' ' == line[274] | ' ' == line[275] | ' ' == line[276] | ' ' == line[277] | ' ' == line[278] | ' ' == line[279] | ' ' == line[280] | ' ' == line[281] | ' ' == line[282] | ' ' == line[283] | ' ' == line[284] | ' ' == line[285] | ' ' == line[286] | ' ' == line[287] | ' ' == line[288] | ' ' == line[289] | ' ' == line[290] | ' ' == line[291] | ' ' == line[292] | ' ' == line[293] | ' ' == line[294] | ' ' == line[295] | ' ' == line[296] | ' ' == line[297] | ' ' == line[298] | ' ' == line[299] | ' ' == line[300] | ' ' == line[301] | ' ' == line[302] | ' ' == line[303] | ' ' == line[304] | ' ' == line[305] | ' ' == line[306] | ' ' == line[307] | ' ' == line[308] | ' ' == line[309] | ' ' == line[310] | ' ' == line[311] | ' ' == line[312] | ' ' == line[313] | ' ' == line[314] | ' ' == line[315] | ' ' == line[316] | ' ' == line[317] | ' ' == line[318] | ' ' == line[319] | ' ' == line[320] | ' ' == line[321] | ' ' == line[322] | ' ' == line[323] | ' ' == line[324] | ' ' == line[325] | ' ' == line[326] | ' ' == line[327] | ' ' == line[328] | ' ' == line[329] | ' ' == line[330] | ' ' == line[331] | ' ' == line[332] | ' ' == line[333] | ' ' == line[334] | ' ' == line[335] | ' ' == line[336] | ' ' == line[337] | ' ' == line[338] | ' ' == line[339] | ' ' == line[340] | ' ' == line[341] | ' ' == line[342] | ' ' == line[343] | ' ' == line[344] | ' ' == line[345] | ' ' == line[346] | ' ' == line[347] | ' ' == line[348] | ' ' == line[349] | ' ' == line[350] | ' ' == line[351] | ' ' == line[352] | ' ' == line[353] | ' ' == line[354] | ' ' == line[355] | ' ' == line[356] | ' ' == line[357] | ' ' == line[358] | ' ' == line[359] | ' ' == line[360] | ' ' == line[361] | ' ' == line[362] | ' ' == line[363] | ' ' == line[364] | ' ' == line[365] | ' ' == line[366] | ' ' == line[367] | ' ' == line[368] | ' ' == line[369] | ' ' == line[370] | ' ' == line[371] | ' ' == line[372] | ' ' == line[373] | ' ' == line[374] | ' ' == line[375] | ' ' == line[376] | ' ' == line[377] | ' ' == line[378] | ' ' == line[379] | ' ' == line[380] | ' ' == line[381] | ' ' == line[382] | ' ' == line[383] | ' ' == line[384] | ' ' == line[385] | ' ' == line[386] | ' ' == line[387] | ' ' == line[388] | ' ' == line[389] | ' ' == line[390] | ' ' == line[391] | ' ' == line[392] | ' ' == line[393] | ' ' == line[394] | ' ' == line[395] | ' ' == line[396] | ' ' == line[397] | ' ' == line[398] | ' ' == line[399] | ' ' == line[400] | ' ' == line[401] | ' ' == line[402] | ' ' == line[403] | ' ' == line[404] | ' ' == line[405] | ' ' == line[406] | ' ' == line[407] | ' ' == line[408] | ' ' == line[409] | ' ' == line[410] | ' ' == line[411] | ' ' == line[412] | ' ' == line[413] | ' ' == line[414] | ' ' == line[415] | ' ' == line[416] | ' ' == line[417] | ' ' == line[418] | ' ' == line[419] | ' ' == line[420] | ' ' == line[421] | ' ' == line[422] | ' ' == line[423] | ' ' == line[424] | ' ' == line[425] | ' ' == line[426] | ' ' == line[427] | ' ' == line[428] | ' ' == line[429] | ' ' == line[430] | ' ' == line[431] | ' ' == line[432] | ' ' == line[433] | ' ' == line[434] | ' ' == line[435] | ' ' == line[436] | ' ' == line[437] | ' ' == line[438] | ' ' == line[439] | ' ' ==
Comments NOTHING