巷道自动寻址的算法与设计

应用场景：仓储管理中，经常遇到自动寻址的功能。

假定一个库房有9个巷道，AA、BB、CC、DD、EE、FF、GG、HH、II；

一个物料默认的存放位置是DD，如果DD巷道没有其它货位可以存放，系统将根据就近原则从DD的两边寻址CC和EE，依次向两边寻址。

原则是这样，但是算法应该怎么设计才容易实现哪？

最容易想到的就是根据货物所在的巷道，生成一个寻址的数组，把货物所在巷道的左侧的巷道从大到小取出，右侧的从小到大取出，先左后右生成寻址的序列，困难在于程序繁琐，想了一个捷径。一个9个巷道，当前巷道除外，还剩8个巷道，建一个长度为16的数组，奇数位存左侧由大到小的数，偶数位存右侧有小到大数，取数只取有数的数组，下面用pb实现一下，短短几行代码：

long ll_line,i
string ls_line

// 取当前货物所在的巷道
ls_line =sle_1.text
ll_line = asc(left(ls_line,1))

// 寻巷道程序
string a[16]
long j

if ll_line>=65 and ll_line<=73 then
	j=1
	for i = ll_line -1 to 65 step -1
  		ls_line = char(i) + char(i)
  		a[j]=ls_line
  		j=j+2	
	next
	j=2
	for i = ll_line +1 to 73
  		ls_line = char(i) + char(i)
  		a[j]=ls_line
  		j=j+2	
	next	
END IF

// 取数
mle_1.text=""
for i=1 to 16
	if a[i]="" then continue	
	mle_1.text =mle_1.text + a[i]	
next

一些感觉比较复杂的问题，只要设计的算法简单，很容易就解决了。

题外话：不怎么用数组，才发现pb的数组居然是从1开始的，习惯性写0，溢出了。设计开发语言的人怎么就没有一点标准呀，都是各自搞自己的，让大家要记住这么多相互矛盾原则，没办法，用别人的没有话语权。