vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Python Script in VB Code konvertieren 
Autor: KleinerMann
Datum: 20.11.20 13:10

Hallo,

ich habe folgenden Python Code im Netz gefunden:
import json
from datetime import datetime
fps = 30
frameTime = 1.0/fps
with open('Metadata.json') as jsonFile:
    data = json.load(jsonFile)
    with open('driverecorder.srt', 'w') as subFile:
        for entry in data[0]['entries']:
            frame = entry['id']
            timeFrom = datetime.fromtimestamp(( _
              frame-1)*frameTime+82800).strftime('%H:%M:%S,%f')[:-3]
            timeTo   = datetime.fromtimestamp(frame*frameTime+82800).strftime( _
            '%H:%M:%S,%f')[:-3]
            subFile.write('%i\n' % frame)
            subFile.write('%s --> %s\n' % (timeFrom, timeTo))
            subFile.write('%s %s\n' % (entry['date'], entry['time']))
            subFile.write('%.2fkm/h, lat=%.4f, long=%.4f\n\n' % ( _
              entry['velocity'], entry['latitude'], entry['longitude']))
Kann ich diesen in VB ausführen ohne das ich dazu Phyton installieren muss, bzw. lässt sich dieser für VB umschreiben?

Viele Grüße und Danke für Eure Antworten im Voraus
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Python Script in VB Code konvertieren 
Autor: KleinerMann
Datum: 23.11.20 23:01

Hi,

ich hab jetzt folegden Code:

 Private fps As Integer
    Private p2vbU1 As Integer
    Private p2vbU2 As Integer
    Private frame As Integer
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim entry As Object
        fps = 30
        Dim frameTime As Double
        frameTime = 1.0 / fps
        Using p2vbU1 = File.Open("route.json", FileMode.Open)
            Dim data() As List(Of String)
            Using p2vbU2 = File.Open(1, "route.srt", FileMode.Open)
                Dim timeTo As Date
                Dim timeFrom As Date
                For entry = 0 To data(0)("entries").Length - 1
                    frame = entry("id")
                    timeFrom = Mid(CDate("1.1.1970 00:00:00").AddSeconds((frame _
                      - 1) * frameTime + 82800).ToString("%H:%M:%S,%f"), 0 + 1, _
                      Len(CDate("1.1.1970 00:00:00").AddSeconds((frame - 1) * _
                      frameTime + 82800).ToString("%H:%M:%S,%f")) - 3 - 0)
                    timeTo = Mid(CDate("1.1.1970 00:00:00").AddSeconds(frame * _
                    frameTime + 82800).ToString("%H:%M:%S,%f"), 0 + 1, Len( _
                    CDate("1.1.1970 00:00:00").AddSeconds(frame * frameTime + _
                    82800).ToString("%H:%M:%S,%f")) - 3 - 0)
                    p2vbU2.Write(System.Text.Encoding.ASCII.GetBytes("(" & _
                    "frame).toString" + vbNewLine + ""), 0, 4)
                    p2vbU2.Write(System.Text.Encoding.ASCII.GetBytes("" + ( _
                    timeFrom).ToString + " --> " + (timeTo).ToString + "" + _
                    vbNewLine + ""), 0, 11)
                    p2vbU2.Write(System.Text.Encoding.ASCII.GetBytes("" + ( _
                    entry("date")).ToString + " " + (entry("time").ToString + _
                    "" + vbNewLine + "")), 0, 7)
                    p2vbU2.Write(System.Text.Encoding.ASCII.GetBytes("" + ( _
                    entry("velocity").ToString) + "km/h, lat=" + (entry( _
                    "latitude").ToString) + ", long=" + (entry( _
                    "longitude").ToString) + "" + vbNewLine + "" + vbNewLine + _
                    ""), 0, 33)
 
                Next
            End Using
        End Using
    End Sub
Leider bekomme ich bei dieser Zeile
Using p2vbU2 = File.Open(1, "route.srt", FileMode.Open)
den Fehler:
System.InvalidCastException: "Ungültige Konvertierung von der Zeichenfolge route.srt in Typ Integer."

Kann mir jemand nen Tipp gegen was hier falsch ist.

Danke im Voraus!
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Python Script in VB Code konvertieren 
Autor: emaNoN
Datum: 24.11.20 10:02

File.Open() erwartet immer als erstes den String, anschließend FileMode. Du versuchst es andersrum:
File.Open(1, "route.srt", FileMode.Open)
.

https://docs.microsoft.com/de-de/dotnet/api/system.io.file.open?view=net-5.0
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2020 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel