CSV文件处理算法.docx

非空空判断文件是否为空，开始声明一个静态变量shared order As Integerorder =1读取CSV文件，放入数组line[] ,ElseIf line[0]==”1” line[0]==”2”line[0]==”3”ElseIf line[0]==”1”||line[0]==”3”将读取信息放入数组Message[]中，将Message[0]作为KEY将Message[]信息放MAP map1中if line[0]==”2”的行数放入CSV文件A中并读取第十一列的ID，将ID放入数组Users[ ] 中.按key值1,3放别放入数组One[] Three[]读取文件A for n=0 to Users.length 次数组Message1[]中,ifMessage1[10]==Users[n]令One[1]=order将One[]的信息放入CSV文件C中C中ElseIf Message1[9]= “99”if Message1[9]！= “99”i+=1;Message1[9]=i并将Message1[21]数放入数组Total[]，将Message1[]放CSV文件B中将读取信息放入数组Message2[]中，Message2[21]=SUM(Total[])/*SUM计算数组中所有元素的和*/，将IDUsers[i]作为KEY将Message2[]放MAP SUN中遍历MAP SUN将信息放入CSV文件B中读取文件b for n=0 to Users.length 次，将读取信息放入数组Message3[]中 if Message1[10]==Users[n]order =order +1;Message3[1]=order并将Message1[21]数放入数组Total[]，将Message3[]放CSV文件c中令Three [1]=order+1将Three[]的信息放入CSV文件C中Dim yuan1 As IO.StreamReader源??文?件t1Dim yuan2 As IO.StreamReader源??文?件t1Dim path1, path2, path3, path4 AsStringDim Users() AsString = Nothing用??户?ìIDDim n AsInteger = 0 用??户?ìID的ì?个?数oyDim No AsInteger = 2 第ì¨2二t列￠D序¨°号? path1 = d:\A.csv中D间?转áa换?文?件tA path2 = d:\B.csv中D间?转áa换?文?件tB path3 = d:\C.csv中D间?转áa换?文?件tC path4 = d:\D.csv中D间?转áa换?文?件tC yuan1 = IO.File.OpenText(TextBox1.Text) yuan2 = IO.File.OpenText(TextBox2.Text)Dim fs1 AsStreamWriter = NewStreamWriter(path1, False, System.Text.Encoding.ASCII)Dim fs2 AsStreamWriter = NewStreamWriter(path2, False, System.Text.Encoding.ASCII)Dim fs3 AsStreamWriter = NewStreamWriter(path3, False, System.Text.Encoding.ASCII)Dim fs4 AsStreamWriter = NewStreamWriter(path4, False, System.Text.Encoding.ASCII)Dim TempLine AsStringDim TempLine1 AsStringDim TempLine2 AsString TempLine1 = yuan1.ReadLine() 读¨￠取¨?源??文?件t1 TempLine2 = yuan2.ReadLine() 读¨￠取¨?源??文?件t2Dim SLTLine1() AsStringDim SLTLine2() AsString SLTLine1 = Split(TempLine1, ,) SLTLine2 = Split(TempLine1, ,)If SLTLine1(10) = SLTLine2(10) Then fs4.WriteLine(TempLine1) 写??入¨?文?件tDDoWhil