Private Sub CreateB2(paral As string，para2 As string，para3 As string)
Dim strFlageS()As string
strFlageS=Split(“螺栓”，“螺柱”，“螺钉”，“螺母”，“垫圈”，“挡圈”，“销”，“铆钉”，“键”，“轴承”，“钢球”，“钢丝”，“钢丝螺套”)
‘——读出临时文件中的零件，找出每个零件的所属装配，然后分类。
Do while Not EOF(fileNum)
Line Input#fileNum，strLine
‘将读出内容拆成零件属性‘
If Len(strLine)<>0 Then
strRow=Split(Trim(strLine)，“，”)
End If
‘根据标准号将零件分类
If strComp(colTemp，(“std”)，”+”)=0 Then
Col TypeSet8．AddcolTemp
END If
Set colTemp 2 Nothing
Loop
Close file Num
‘对零件按照标准号，名称(规格)，所属装配排序
Low—Collection—Gsort—Sta，eolTypeSet8，colSnmSet，sreFlageS，“标准件汇总表”
Set colTypeSet8=Nothing
Create CSV tempLine，colSumSet，file02，“汇总表”
