通视/数畅C#接口使用情况调查

正在学习中，参考fisher

 

翻译成vb的了，用过，没坚持下来，因为不能补分笔数据，后来在新浪上找到下载分笔数据的地方了，就废弃了。

 

用过，改过

 

还没用过，关注。。。现在是从新浪上取

 

我用过

 

sina上哪里可以下分笔数据啊？

 

http://vip.stock.finance.sina.com.c...dehistory.php?symbol=sh600050&date=2009-05-15
但是没有买一啥的

 

不错

 

不能下载xls文件

我想程序下载 地址为 http://market.finance.sina.com.cn/downxls.php?date=2009-05-18&symbol=sh600050
的xls文件，游览器可以下载，但程序不能下载，
请给一段示例代码

 

tom_sh老大为什么问这个问题呢。
我一直用VC++。

 

Dim b() As Byte
Dim d As String

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

For m = DTPicker1.Value To DTPicker2.Value
For i = 0 To List1.ListCount - 1
mysymbol = List1.List(i)
m = Format(m, "yyyy-mm-dd")
Call mdownload(m, mysymbol)
objInet.Cancel
Next
Next
End Sub

Private Sub Command3_Click()
List1.Clear
For i = 0 To List2.ListCount

List1.AddItem (List2.List(i))
Next
End Sub

Private Sub Command4_Click()
List1.Clear
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
Dir1.Path = Drive1.Drive
DTPicker1 = Now()
DTPicker2 = Now()
End Sub

Private Sub mdownload(ByVal mydate As String, ByVal mysymbol As String)

Dim b() As Byte

Label1.Caption = ""

mfilename = Dir1.Path & "\" & mydate & mysymbol & ".xls"

Command2.Enabled = False
Label1.Caption = "开始下载" & mysymbol & "日期：" & mydate



b() = objInet.OpenURL("http://market.finance.sina.com.cn/downxls.php?date=" & mydate & "&symbol=" & mysymbol, 1)

Label1.Caption = "下载完成" & mysymbol

If UBound(b) < 1001 Then
strerrormsg = "无法打开该URL地址！"
Label1.Caption = strerrormsg
Command2.Enabled = True
Else
Label1.Caption = "正在保存" & mysymbol
mfilenum = FreeFile()
Open mfilename For Binary As mfilenum


Put mfilenum, , b()

Close mfilenum

Command2.Enabled = True
Label1.Caption = "完成保存" & mysymbol
End If

End Sub



Private Sub Form_Terminate()
objInet.Cancel
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub List1_DblClick()
List1.RemoveItem (List1.ListIndex)
End Sub

Private Sub List2_DblClick()
List1.AddItem (List2.Text)
End Sub

 

写的很糙，自己凑合用的，你可以建个文件把股票代码装进去，其次，我都是退出就直接end了，如果下载一半的时候会出问题，你可以再查查msdn，检查一下下载状态可能会避免这个问题。

 

谢谢，我用的C#，还没搞定，关键是这个地址是 转向地址，文件直正地址一直没法确定

 

唉，看来我很边缘。会计专业，自学vb，会一点powerbasic。

 

Not 6)
Not 7)
All are others.