zoukankan      html  css  js  c++  java
  • export data into .txt file

    Dim w1(,) As Double = CType(oW1, Array)
                        
    Dim cCount As Integer = w1.GetLength(1)
                        
    Dim rCount As Integer = w1.GetLength(0)

                        
    Dim sw As System.IO.StreamWriter
                        sw 
    = System.IO.File.CreateText("f:corr1.txt")


                        
    For i As Integer = 1 To rCount

                            
    For j As Integer = 1 To cCount
                                sw.Write(w1(i, j))
                                
    If j < cCount Then
                                    sw.Write(Microsoft.VisualBasic.Chr(
    9))
                                
    End If
                            
    Next j
                            
    If i < rCount Then
                                sw.Write(Microsoft.VisualBasic.Chr(
    13+ Microsoft.VisualBasic.Chr(10))
                            
    End If


                        
    Next i

                        sw.Close()


                        
    Dim w2(,) As Double = CType(oW2, Array)
                        
    Dim cCount2 As Integer = w2.GetLength(1)
                        
    Dim rCount2 As Integer = w2.GetLength(0)

                        
    Dim sw2 As System.IO.StreamWriter
                        sw2 
    = System.IO.File.CreateText("f:corr2.txt")


                        
    For i As Integer = 1 To rCount2

                            
    For j As Integer = 1 To cCount2
                                sw2.Write(w2(i, j))
                                
    If j < cCount2 Then sw2.Write(Microsoft.VisualBasic.Chr(9))
                            
    Next j
                            
    If i < rCount2 Then sw2.Write(Microsoft.VisualBasic.Chr(13+ Microsoft.VisualBasic.Chr(10))

                        
    Next i

                        sw2.Close()
  • 相关阅读:
    mysq 中 information_schema 库
    python mysql创建表
    Mysql 连接池
    mysql 事务、游标
    python 操作数据库1--连接、执行sql语句
    搭建自动化脚本运行环境
    快速定位XPATH
    Fiddler--Filters
    Fiddler--Composer
    Fiddler--AutoResponder
  • 原文地址:https://www.cnblogs.com/silva/p/336871.html
Copyright © 2011-2022 走看看