sn.txt

股票分析

Public Function Ml30DayToExcel(strMl30File As String, strExcelFile As String) As Integer
    
    Dim myExcel As Excel.Workbook
    Dim myWork As Excel.Worksheet
    Dim longCol As Long
    Dim longRow As Long
    Dim longStart As Long
    
    Dim longData As Long
    Dim longDataNumber As Long
    
    Dim longMaxFileSize As Long
    Dim longLoopFlag As Long
    
    Dim msgStyle, msgTitle As String
    Dim msgResponse
 
 On Error GoTo ml30fileEnd
   
    Open strMl30File For Binary Access Read Lock Read As #1
    longMaxFileSize = LOF(1)
On Error GoTo excelEnd
    Set myExcel = Workbooks.Add           'Open("m:\Stock Operation System\sn_600899\Stock Data In Long.xls")
    Set myWork = myExcel.Worksheets(1)
    
    longStart = myWork.Cells(1, 4)
    longDataNumber = 0
    If longStart <> 0 Then
       For longDataNumber = 0 To longStart - 2
           Get #1, , longData
       Next longDataNumber
    End If
    Do While Not EOF(1)
       Get #1, , longData
       longDataNumber = longDataNumber + 1
       longCol = longDataNumber \ 10
       longRow = longDataNumber - longCol * 10
       If longRow = 0 Then
          longCol = longCol - 1
          longRow = 10
       End If
       If longData = 0 And longRow = 1 Then
          Exit Do
       End If
       If longRow = 1 Or longRow = 7 Then
          myWork.Cells(longCol + 3, longRow) = longData
       End If
       If longRow = 2 Or longRow = 3 Or longRow = 4 Or longRow = 5 Then
          myWork.Cells(longCol + 3, longRow) = longData / 1000
       End If
       If longRow = 6 Then
          myWork.Cells(longCol + 3, longRow) = longData / 10
       End If
       
       'If longDataNumber > 100 Then
       '   Exit Do
       'End If
       
    Loop
    myWork.Cells(1, 4) = longDataNumber
    myWork.Cells(1, 2) = longCol
    
    myWork.SaveAs strExcelFile
    Ml30DayToExcel = 1
excelEnd:
    myExcel.Close
    
    Set myWork = Nothing
    Set myExcel = Nothing

ml30fileEnd:
  
    Close #1
    'msgResponse = MsgBox(longMaxFileSize, vbOKOnly, "文件长度")
End Function



Public Function getMaxPrice(strExcelFile As String, _
       myDate As Long, closePrice As Long, period As Long) As Integer
    
    Dim myExcel As Excel.Workbook
    Dim myWork As Excel.Worksheet
    Dim longCol As Long
    Dim longRow As Long
    Dim longRecordNumber As Long
    Dim longStockData As Long
    Dim longMaxData As Long
    Dim longDataNumber As Long
 
On Error GoTo excelEnd
    Set myExcel = Workbooks.Open(strExcelFile)
    Set myWork = myExcel.Worksheets(1)
    
    longRecordNumber = myWork.Cells(1, 2) - 2
    longMaxData = myWork.Cells(longRecordNumber, 5)
    If period = 0 Then           'if period=0 mean all records
       period = longRecordNumber
    End If
    
    For longDataNumber = 1 To period
        If longMaxData < myWork.Cells(longRecordNumber - longDataNumber, 5) Then
           longMaxData = myWork.Cells(longRecordNumber - longDataNumber, 5)
           myDate = myWork.Cells(longRecordNumber - longDataNumber, 1)
           closePrice = longMaxData
        End If
    Next longDataNumber
    myExcel.Close
    Set myWork = Nothing
    Set myExcel = Nothing
    getMaxPrice = 1
    Exit Function
    
excelEnd:
    Set myWork = Nothing
    Set myExcel = Nothing
    getMaxPrice = 0
End Function