Dim str As String = "" For Each dr As DataRow In DataTables("主题").DataRows
If dr.IsNull("代码") Then str &= vbcrlf Else If dr("代码").startswith("6") Then str &= "1|" Else str &= "0|" End If str &= dr("代码") & "|" & "12|"& Format(Date.Today, "MM月dd日Ⅰ+") & "|0.000" & vbcrlf End If Next FileSys.WriteAllText("e:\投资\extern_user.txt",str, False, Encoding.Default)