vb股票數據怎麼保存到文件

① vb運行出結果的數據如何保存最好是txt格式

這個
就要把數據
保存在資料庫
或者其他文件里了
這樣下次運行
自動載入
就可以了
你把電話號碼放在數組了
比如a（n）
for
u=
0
to
n
b=b
&
a(u)
&
crlf
next
u
open
app.path
&
"\系統文件\信息.dll"
for
append
as
#1
'文檔地址隨意
print
#1,
b
close
#1
這樣
你就把
所有數組
保存到
上面那個文件里了
下次運行時
再把它賦給數組
就行了
我有一個現成的
程序
就是電話薄
的
你要的話
把郵箱給我
我發給你！！

② VB中怎樣保存數據（保存在VB資料庫里）

方法一：在資料庫中建一個表，把當前最後的輸入值保存在該表裡，，每次執行程序都從資料庫里讀取，
方法二：在程序中建一個文本文件或xml文件，每次都寫入文件中，下次從文件中讀取
方法三：把輸入值存入注冊表的某個位置，下次從注冊表裡讀取！

③ VB做完程序後怎麼保存啊

1、首先，用以下程序設置使VB保存和存儲到資料庫。

④ vb中怎樣把數據存到文件里

Open 文件絕對路徑 For Input/Output/Append/Binary/Random As #文件號
Input:讀入文件,文件不存在發生錯誤
Output:輸出到文件,文件不存在則創建文件
這兩個是比較常用的
Write #文件號,變數(寫內容到打開的文件)
Put #文件號,文件大小,變數(寫內容到打開的文件,可指定大小)
Print #文件號,變數(寫內容到打開的文件)
Input #文件號,變數(從打開的文件讀入內容)
Line Input #文件號,變數(從打開的文件讀入一行內容(遇到回車符為一行))
Close #文件號(關閉打開的文件)
Open 語句示例
本示例示範 Open 語句的不同用法來做到文件的輸出與輸入。

下列代碼以順序輸入模式打開 TESTFILE 文件。

Open "TESTFILE" For Input As #1
' 若要以其他方式打開文件，必需先關閉此文件。
Close #1

下列代碼以只允許寫操作的二進制方式打開文件。

Open "TESTFILE" For Binary Access Write As #1
' 若要以其他方式打開文件，必需先關閉此文件。
Close #1

下列代碼以隨機方式打開文件，文件中含有用戶自定義數據類型 Record 的記錄。

Type Record ' 定義用戶自定義數據類型。
ID As Integer
Name As String * 20
End Type

Dim MyRecord As Record ' 聲明變數。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' 若要以其他方式打開文件，必需先關閉此文件。
Close #1

下列代碼以順序輸出方式打開文件；任何過程都可以讀寫該文件。

Open "TESTFILE" For Output Shared As #1
' 若要以其他方式打開文件，必需先關閉此文件。
Close #1

下列代碼以只允許讀的二進制方式打開文件；其他過程不可以讀該文件。

Open "TESTFILE" For Binary Access Read Lock Read As #1

例如:

Open App.Path + "\test.txt" For Output As 1
Print #1, Text1.Text
Print #1, Text2.Text
.....
close

下載msdn吧

⑤ vb如何保存文件啊

步驟大概是這樣的：
Step1：編寫代碼
Step2：單擊「文件」——>選擇「保存工程」
Step3：保存窗體（*.frm），模塊（*.bas），類（*.cls）文件
Step4：保存工程（*.vbp）文件

Step5：保存完後，會彈出一個對話框，內容大概是這樣的，「Do you Add SourceSafe?」，那裡選擇「否」就可以了

打開的時候：直接找到"工程名.vbp"（就是的工程文件，VB Project），直接雙擊打開就可以了。

⑥ VB 怎樣將文本框的數據讀取和保存到文本文件中

VB將文本框的數據讀取和保存到文本文件中，實際上就是VB對txt的讀寫操作。
相關代碼如下：
1、vb讀取txt文件內容，以下代碼實現把電腦txt中的內容讀取到程序文本框text1中。
Private Sub Command1_Click()
Open App.Path & "\123.txt" For Input As #1 '備註：App.Path & "\123.txt"是程序目錄下的123.txt
Dim Lines As String
Line Input #1, Lines '讀取文本內容
Close #1
text1.Text = Lines
End Sub
2、vb寫入txt內容，實現文本框的數據寫入到文本文件中。
Private Sub Command2_Click()
Dim a As String
a = text1.Text '先讀取出text1內容
Open App.Path & "\123.txt" For Output As #1
Print #1, a '把a的值寫入123.txt
Close #1
End Sub

⑦ 如何下載股票歷史成交數據到Excel或txt

以華中智能股票軟體為例：（以Think pad X13 銳龍版筆記本電腦，Windows 10 操作為例）首先切換到要下載數據的股票K線形態，按「F1」進入「日線某某股票歷史成交」，點擊滑鼠右鍵->數據導出->導出所有數據->在「請選擇導出的類型」中選擇excel或txt
補充資料：
如何獲取所有股票歷史數據：
如果要對股市進行分析，首先就要獲取所有股票的歷史數據，只有通過股票的歷史數據，我們才能分析出股市的規律。
（以Think pad X13 銳龍版筆記本電腦，Windows 10 操作為例）
一、工具/原料
1、EXCEL2007或者以上版本，不能使用WPS
2、電腦1g內存1核處理器及以上配置
3、擁有較強邏輯分析能力以及少量智慧及以上的大腦一顆
方法/步驟：
第一步，獲取股票代碼，復制其中一部分到第一個工作表A4到A127，然後通過程序把每一個代碼寫入到不同的工作表A2位置，並對該工作表以該股票代碼命名。程序如下：
Sub 工作表命名()
For i = 4 To 127
Sheets(i).Range("a2") = "'" & Sheets(1).Range("a" & i)
Next i
For i = 4 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("a2").Value
Next
End Sub
第二步，獲取股票歷史數據。代碼如下：
Private Function GetSource(sURL As String) As String
Dim oXHTTP As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "GET"， sURL， False
oXHTTP.Send
GetSource = oXHTTP.responsetext
Set oXHTTP = Nothing
End Function
Sub 歷史數據()
Dim objXML As Object
Dim txtContent As String
Dim i As Integer
Dim strCode As String
Dim gp As String
Dim kaishihang
Dim arr， arr1， arr2， arr3， arr4， arr5， arr6， arr7， arr8， arr9， arr10， arr11
On Error Resume Next
EndRow = Range("a65536").End(xlUp).Row
startRow = 4
If startRow <= EndRow Then
Range(Cells(startRow， 1)， Cells(EndRow， 11)).Value = ""
Else
Exit Sub
End If
Set objXML = CreateObject("Microsoft.XMLHTTP")
gp = [A2]
For h = 1 To 4
For m = 1 To 4
kaishihang = [A65535].End(xlUp).Row
nian = Replace(Str(Year(Now) + 1 - h)， " "， "")
ji = Replace(Str(4 + 1 - m)， " "， "")
With objXML
.Open "GET"， "http://quotes.money.163.com/trade/lsjyj_" + gp + ".html?year=" + nian + "&season=" + ji + ""， False
.Send
If objXML.Status = 200 Then
txtContent = .responsetext
arr = Split(txtContent， "'>")
For i = 1 To UBound(arr)
arr1 = Split(arr(i)， " Cells(i + kaishihang， 1) = Right(Left(arr1(0)， 10)， 10)
arr2 = Split(arr1(1)， Chr(60))
Cells(i + kaishihang， 2) = Mid(arr2(0)， InStr(arr2(0)， ">") + 1)
arr3 = Split(arr1(2)， Chr(60))
Cells(i + kaishihang， 3) = Mid(arr3(0)， InStr(arr3(0)， ">") + 1)
arr4 = Split(arr1(3)， Chr(60))
Cells(i + kaishihang， 4) = Mid(arr4(0)， InStr(arr4(0)， ">") + 1)
arr5 = Split(arr1(4)， Chr(60))
Cells(i + kaishihang， 5) = Mid(arr5(0)， InStr(arr5(0)， ">") + 1)
arr6 = Split(arr1(5)， Chr(60))
Cells(i + kaishihang， 6) = Mid(arr6(0)， InStr(arr6(0)， ">") + 1)
arr7 = Split(arr1(6)， Chr(60))
Cells(i + kaishihang， 7) = Mid(arr7(0)， InStr(arr7(0)， ">") + 1)
arr8 = Split(arr1(7)， Chr(60))
Cells(i + kaishihang， 8) = Mid(arr8(0)， InStr(arr8(0)， ">") + 1)
arr9 = Split(arr1(8)， Chr(60))
Cells(i + kaishihang， 9) = Mid(arr9(0)， InStr(arr9(0)， ">") + 1)
arr10 = Split(arr1(9)， Chr(60))
Cells(i + kaishihang， 10) = Mid(arr10(0)， InStr(arr10(0)， ">") + 1)
arr11 = Split(arr1(10)， Chr(60))
Cells(i + kaishihang， 11) = Mid(arr11(0)， InStr(arr11(0)， ">") + 1)
Next i
End If
End With
Next m
Next h
Set objXML = Nothing
End Sub
第三步，獲取上證歷史數據，並獲取所有股票的歷史數據。程序如下：
Sub 所有股票歷史數據獲取()
Application.ScreenUpdating = False
Dim s As String， gp As String， nian As String， ji As String， s1 As String
Dim arr， arr1， arr2， arr3， arr4， arr5， arr6， arr7， arr8， arr9
Dim i， h As Long
Dim kaishihang
Dim LastRow As Long， r As Long
On Error Resume Next
EndRow = Sheet2.Range("a65536").End(xlUp).Row
startRow = 4
If startRow <= EndRow Then
Sheet2.Range(Sheet2.Cells(startRow， 1)， Sheet2.Cells(EndRow， 9)).Value = ""
Else
Exit Sub
End If
For h = 1 To 5
For m = 1 To 4
kaishihang = Sheet2.[A65535].End(xlUp).Row
nian = Replace(Str(Year(Now) + 1 - h)， " "， "")
ji = Replace(Str(4 + 1 - m)， " "， "")
s1 = "http://quotes.money.163.com/trade/lsjysj_shu_000001.html?year=" + nian + "&season=" + ji + ""
s = GetSource(s1)
arr = Split(s， "'>")
For i = 1 To UBound(arr)
arr1 = Split(arr(i)， " Sheet2.Cells(i + kaishihang， 1) = Right(Left(arr1(0)， 4)， 4) & "-" & Right(Left(arr1(0)， 6)， 2) & "-" & Right(Left(arr1(0)， 10)， 2)
arr2 = Split(arr1(1)， Chr(60))
Sheet2.Cells(i + kaishihang， 2) = Mid(arr2(0)， InStr(arr2(0)， ">") + 1)
arr3 = Split(arr1(2)， Chr(60))
Sheet2.Cells(i + kaishihang， 3) = Mid(arr3(0)， InStr(arr3(0)， ">") + 1)
arr4 = Split(arr1(3)， Chr(60))
Sheet2.Cells(i + kaishihang， 4) = Mid(arr4(0)， InStr(arr4(0)， ">") + 1)
arr5 = Split(arr1(4)， Chr(60))
Sheet2.Cells(i + kaishihang， 5) = Mid(arr5(0)， InStr(arr5(0)， ">") + 1)
arr6 = Split(arr1(5)， Chr(60))
Sheet2.Cells(i + kaishihang， 6) = Mid(arr6(0)， InStr(arr6(0)， ">") + 1)
arr7 = Split(arr1(6)， Chr(60))
Sheet2.Cells(i + kaishihang， 7) = Mid(arr7(0)， InStr(arr7(0)， ">") + 1)
arr8 = Split(arr1(7)， Chr(60))
Sheet2.Cells(i + kaishihang， 8) = Mid(arr8(0)， InStr(arr8(0)， ">") + 1)
arr9 = Split(arr1(8)， Chr(60))
Sheet2.Cells(i + kaishihang， 9) = Mid(arr9(0)， InStr(arr9(0)， ">") + 1)
Next i
Next m
Next h
Application.ScreenUpdating = True
n = Worksheets.Count
For i = 4 To n
Worksheets(i).Activate
歷史數據
Next
End Sub
第四步，保存工作簿，並對該工作簿命名為1，然後復制該工作簿27份，把所有股票代碼寫入每一個工作簿第一個工作表的A3到A127列。然後根據第一步對工作簿內的工作表命名，並在每一個工作表A2單元格內寫入股票代碼。
第五步，把這些工作簿存放到炒股文件夾下的資料庫文件下。然後在炒股文件夾下新建一個工作簿，命名為「一鍵更新表格」，寫入如下代碼：
Sub 所有股票歷史數據更新()
Dim wb As Workbook
For i = 1 To 27
Set wb = Workbooks.Open(ThisWorkbook.Path & "資料庫" & i & "".xlsb"")
Application.Run ""'"" & wb.Path & """" & i & "".xlsb'!所有股票歷史數據獲取""
wb.Save
wb.Close
Next i
End sub
當啟動這一段代碼以後，程序會自動一個一個的打開對應的工作簿然後獲取裡面所有股票的歷史數據，存放在對應的工作表當中。
第六步，對相應的程序添加按鈕，這樣，我們在啟動對應程序時，只需要點一下對應的按鈕就可以實現了。這樣，我們通過多個工作簿就實現了獲取所有股票歷史數據的方法。而後面，我們只需要通過獲取對應股票每一天的歷史數據，我們就能夠在任意一天很快速的能夠擁有所有股票的歷史數據了。
注意事項
1、在後續需要對這些數據進行分析，裡面會加入很多計算，所以啟動所有歷史數據更新時，我們應該要關閉自動更新。
2、因為歷史數據很大，所以這里只獲取四年的數據，想要獲取更多數據，可以更改程序裡面 「For h = 1 To 5」的那個5即可。
3、歷史數據的獲取需要較長的時間，要提前做好准備。
4、如果你想要弄清楚用EXCEL建立炒股系統的整套方法，請看後續內容。"

⑧ VB儲存數據到TXT

在窗體上畫一個CommonDialog1控制項，Command用來打開文件的控制項，Text1用來記錄這個文件的路徑，
打開按鈕的代碼：
CommonDialog1.DialogTitle = "選擇保存位置"
CommonDialog1.Filter = "*.txt|*.txt"
CommonDialog1.FilterIndex = 0
CommonDialog1.Action = 1
Text1.Text = CommonDialog1.FileName
存儲代碼：
f = InputBox("請輸入", "請輸入數據", 0, 5800, 5800)
Open Text1.Text For Append As #1
Print #1, f
Close #1

⑨ VB如何將程序的數據保存

VB6.0

寫入：
Open "D:123.txt" For Output As #1 '打開XXX路徑的XXX文件（雙引號里表示文件位置和文件名）
Print #1, Text1.Text '寫入Text1的Text內容
Close #1 '關閉
讀取：
Open "D:123.txt" For Input As #1 '打開打開XXX路徑的XXX文件（雙引號里表示文件位置和文件名）
Do While Not EOF(1)
Line Input #1, s
Text1.Text = s
Loop 'Do...Loop表示循環讀取文件的內容，並讓Text1.Text=內容
Close #1 '關閉

VB.net中讀寫文件主要使用System.IO命名空間。

① 使用File.ReadAllText 讀取
Dim s As String = System.IO.File.ReadAllText("C:a.txt")
② 使用 StreamReader 讀取，注意編碼格式和寫入的編碼保持一致。
Dim sr As StreamReader = New StreamReader("C:a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()

⑩ 如何用VB把數據據文件保存成文本文件急！！！

你是指把數據寫進TXT文檔嗎？用文件操作語句open+路徑（引號括起來）+For+output（還有其他的，但是你這邊是寫入，output是常用的） +as +文件號如：Open App.Path & "/a.txt" For Output As #1寫入的語句是 print+文件號+內容如： Print #1, location.x, location.y最後一定要用關閉語句 close +文件號如：close #1因為只有關閉文件後VB才會將數據寫進文本非復制黏貼，謝謝採納。