标题：请教高手这个自动输入的公式怎么编写？(已解决)

 
此主题相关图片如下：01.jpg

如图所示，我想做的效果是我在产品型号输入以后，产品的编码会根据我的输入自动填入。

规则如下：

１.产品编码要求１６位

２.产品编码首位为０

３.产品编码后四位为０

４.产品编码第二位对应产品型号前两位或者前三位，如产品编码前两位为II ,则产品编码第二位为2，如产品型号前三位为III，则产品编码第二位为3

5.产品型号I后面第一位对应编码第三位，关系如下：A=1,B=2,C=3,D=4

6.产品型号I后面第二位对应编码第四位，关系如下：c=1,j=2 

7.产品型号的X符号前的数字前面加0补够四位写入产品编码五到八位

8.产品型号的X符号后的数字前面加0补够四位写入产品编码九到十二位

新规则如下：

１.产品编码要求１６位

２.产品编码首位为０

３.产品编码后四位为０

４.产品编码第二位对应产品型号前两位，如产品编码前两位为II ,则产品编码第二位为2

5.产品型号I后面第一位对应编码第三位，关系如下：A=1,

6.产品型号I后面第二位对应编码第四位，关系如下：c=1,j=2 

7.产品型号的X符号前的数字前面加0补够四位写入产品编码五到八位

8.产品型号的X符号后的数字前面加0补够四位写入产品编码九到十二位

这样是不是要好些点呢，那位高手给个参考也好啊！

忽忽，要求有点多，大家见谅，请高手出马，或者给我个大概的思路也好！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:编码_0523.zip

我从第6点开始就看晕了，你把它们分隔开来对应吧，这样看的更清楚些。。

你应把 IIIAJ22X10  录入成  =>    III AJ 22 X 10   （里面空格用分隔符也可以。）这样就简单了。

另外：

5.产品型号I后面第一位对应编码第三位，关系如下：A=1,B=2,C=3,D=4  ***只有A/B/C/D？ 后面还有E/F/G.... 吗？？？

6.产品型号I后面第二位对应编码第四位，关系如下：c=1,j=2    ***同上

还有 产品型号中有个31.8 有什么要求呢。

你没有回答上面粉红字的问题！！！

不难，就是有点复杂，思路：

根据要求，不断的拼接字符串，直到完成

给个简单的代码，例如：

Dim s1 As String ="IIAC32X20"
Dim s3 As String
If left(s1,3)="III" Then
  s3="03"
  s1=s1.SubString(3)
Else
s3="02"
s1=s1.SubString(2)
End If
s3=s3 & iif(left(s1,1)="A","1",iif(left(s1,1)="B","2",IIF(left(s1,1)="C","3","4")))
s1=s1.SubString(1)
s3=s3 & iif(left(s1,1)="C","1","2")
s1=s1.SubString(1)

Output.Show("s1 = " & s1)
Output.Show("s3 = " & s3)

后面的你按要求继续完成，我对FOXTABLE的函数不熟，如果有字符串函数大全做参考，应该更容易些（我用我只知道的函数完成）