Guten Tag
zu
> > Mit der zweiten Funktion Werte ich die CSV datei aus.
Hab mich verschrieben meinte natürlich "Array auswerten"
Hir der code:
<html>
<head>
<meta name=3D"author" content=3D"">
<meta name=3D"generator" content=3D"AFSS HTML Designer 2.3 (http://
www.afss.de)">
<title></title>
</head>
<SCRIPT LANGUAGE=3D"VBScript">
Dim AArray()
Sub Button2_OnClick
Dateilesen =3D document.All.eingabefeld2.Value
Dateischreiben =3D document.All.eingabefeld3.Value
zeilenanzahl =3D document.All.eingabefeld4.Value
Dim Eingabe, Eingabe1, Eingabe2, Eingabe3, i, a, objFso, objDatei,
objFile
Dim strline, count, return, MeinDatenfeld, zeit, q, stringteilen
Set objFso =3D CreateObject("Scripting.FileSystemObject")
Set objDatei =3D objFso.OpenTextFile(Dateischreiben, 2, True)
Set objFso =3D CreateObject("Scripting.FileSystemObject")
Set objFile =3D objFso.OpenTextFile(Dateilesen, 1)
ReDim AArray(zeilenanzahl, 9)
strLine =3D objFile.ReadLine
Zeileneinlesen 'Erste Funktion
Minutentateierstellen 'Zweite funktion
End Sub
Function Zeileneinlesen
Dateilesen =3D document.All.eingabefeld2.Value
zeilenanzahl =3D document.All.eingabefeld4.Value
Dim i
ReDim AArray(zeilenanzahl, 9)
Set objFso =3D CreateObject("Scripting.FileSystemObject")
Set objFile =3D objFso.OpenTextFile(Dateilesen, 1)
i =3D 1
Do Until objFile.AtEndOfStream
strLine =3D objFile.ReadLine
MeinDatenfeld =3D Split(strLine, ";", -1, 1)
AArray(i, 0) =3D MeinDatenfeld(0)
AArray(i, 1) =3D MeinDatenfeld(1)
AArray(i, 2) =3D MeinDatenfeld(2)
AArray(i, 3) =3D MeinDatenfeld(3)
AArray(i, 4) =3D MeinDatenfeld(4)
AArray(i, 5) =3D MeinDatenfeld(5)
AArray(i, 6) =3D MeinDatenfeld(6)
MeinDatenfeld =3D Split(AArray(i, 1), ":", - 1, 1)
AArray(i, 8) =3D MeinDatenfeld(0)
AArray(i, 9) =3D MeinDatenfeld(1)
i =3D i + 1
Loop
objFile.Close
End Function
Function Minutentateierstellen
Dim stringteilen
Do
i =3D 0
Do
Do
stringteilen =3D Right(AArray(i, 9), 1)
If stringteilen =3D 0 Then
Exit Do
End If
If stringteilen =3D 5 Then
Exit Do
End If
i =3D i + 1
Loop
Datum =3D AArray(i, 0)
zeit =3D AArray(i, 1)
Open =3D CCur(AArray(i, 2))
High =3D CCur(AArray(i, 3))
Low =3D CCur(AArray(i, 4))
Close =3D CCur(AArray(i, 5))
Volumen =3D CCur(AArray(i, 6))
zaehlen =3D CInt(AArray(i, 9) + 4)
Loop Until AArray(i, 0) =3D ""
Loop Until AArray(i, 0) =3D ""
objDatei.close
End Function
</SCRIPT>
<body bgcolor=3D"#2c742f" text=3D"#b87130" link=3D"#0000ff" alink=3D"#ff000=
0"
vlink=3D"#400040">
<div align=3D"center"><FONT color=3D#800000 size=3D6>5 Minuten
Datei Erstellen</FONT> </div>
<DIV align=3Dcenter> </DIV>
<DIV align=3Dcenter>
<HR width=3D"100%"></DIV>
<DIV align=3Dcenter>Der Dateiaufbau sollte so sein: </DIV>
<DIV align=3Dcenter>"DATE";"TIME";"OPEN";"HIGH";"LOW";"CLOSE";"VOLUME"</
DIV>
<DIV align=3Dcenter>Die Kurs Werte sollen durch ein "<FONT
color=3D#ff0000>Komma</FONT> " getrennt sein.</DIV>
<DIV align=3Dcenter>
<HR width=3D"100%">
</DIV>
<DIV align=3Dleft> </DIV>
<DIV align=3Dcenter><INPUT size=3D54 name=3D"Eingabefeld1" value=3D"Hier wi=
rd
der Zeilenihalt angezeigt"></DIV>
<DIV align=3Dcenter> </DIV>
<DIV align=3Dleft>Welche datei soll geöffnet
weden: <input id=3D"FormsFileSelector1"
type=3D"file" name=3D"Eingabefeld2" style=3D"WHITE-SPACE: pre" size=3D"18"
maxlength=3D"18" >
<INPUT type=3Dsubmit value=3D"Erste Zeile Einlesen" name=3DButton1></DIV>
<DIV align=3Dleft> </DIV>
<DIV align=3Dleft>Zielpfad der Datei
angeben: &=
nbsp;
<input id=3D"FormsFileSelector2" type=3D"file" name=3D"Eingabefeld3"
style=3D"WHITE-SPACE: pre" size=3D"18" maxlength=3D"18" ></DIV>
<DIV align=3Dleft> </DIV>
<DIV align=3Dleft>Ermittelte
Zeilenanzahl: &n=
bsp;
<INPUT size=3D18 name=3D"Eingabefeld4">
Auf "Erste Zeile Einlesen" Button Klicken.</DIV>
<DIV align=3Dleft> </DIV>
<DIV align=3Dleft> </DIV>
<DIV align=3Dleft> </DIV>
<DIV align=3Dcenter><INPUT type=3Dsubmit value=3D"Datei Erstellen"
name=3DButton2></DIV>
<P> </P>
</body>
</html>
