请问如何处理能使分隔符“ |”在一个位置上？

Question

我用命令按钮向list1中添加内容，代码如下：
s="直径" & text1(0) | " & "容积" & Round(Vs, 3) & "m^3 | " & "²材料: " & combo1(0).Text
List1.AddItem s
但是添加几个数据后发现问题如下：
1.由于"直径" 对应的 text1(0)的数据不同造成分隔符“ |”的竖向排列不在一个位置。
2.由于"容积" 对应的 Round(Vs, 3)的数据不同，如1.579，2.03，0.5，4等造成分隔符“ |”的竖向排列也不在一个位置。请问如何处理能使分隔符“ |”在一个位置上？

Answer 1

方法一,将你上面的变量声明为定长的,然后将最后一个潜换为"|"    dim s as string * 15
    
    s="直径1.579"
    mid(s,len(s),1)="|"
    list1.addItem s    s="材料4"
    mid(s,len(s),1)="|"
    list1.addItem s

Answer 2

各位老大能否说的详细点。直径后面跟着text1(0)，它的长度是有别人输入决定的，只能知道它的位数在1～20之间。容积后面跟着的变量到是已知，限定小数点后3位，但是有时计算出来是0.12或6.1这样就不够3位了

Answer 3

是不是如下就是你要的结果,你试下啊:     dim s1 as string * 25
    dim s2 as string * 10
    dim ss as string
    
    s1=text1.text
    mid(s1,len(s1),1)="|"
    ss=ss & s1
    
    s2="容积4.016"
    mid(s2,len(s2),1)="|"
    ss=ss & s2
 
    s2="材料4"
    mid(s2,len(s2),1)="|"
    ss=ss & s2    list1.addItem ss
    
    ss=""
    s1=text1.text
    mid(s1,len(s1),1)="|"
    ss=ss & s1
    
    s2="容积7.6"
    mid(s2,len(s2),1)="|"
    ss=ss & s2
 
    s2="材料408"
    mid(s2,len(s2),1)="|"
    ss=ss & s2    list1.addItem ss

Answer 4

固定长度 不足长度加空格  补齐开源考虑用listview 控件