Question

vb listview字段中的数字计算，求代码

例如：金重字段中：2 - 3（2-3克），如何提取出2和3，这2个数字进行计算。（2+3）/2 * 数量字段内的数据

Answer 1

dim a as string
a=list1.text
dim n as long
n=len(n)
dim i as long
dim c as long
for i=1to n

if mid(a,i,1)="-"then
c=val(left(a,i-1))+val(right(a,n-i))
endif
next