In VB möchte ich habe ich ein Programm geschrieben das den Microfon aufnahme als .wav abspeichert.
Jetzt möchte ich als 2. Schritt diese Aufnahme in eine Textdatei umwandeln, idealer weise direkt auch übersetzen.
In Python geht es über google- Link
Aber wie kann ich es hier umsetzten?
Ich habe schon ältere Themen dazu hier im forum gefunden aber , da sagt mein VB 2022 das ist veraltet.
komme da gerade nicht weiter
*Topic verschoben*
Jetzt möchte ich als 2. Schritt diese Aufnahme in eine Textdatei umwandeln, idealer weise direkt auch übersetzen.
In Python geht es über google- Link
Aber wie kann ich es hier umsetzten?
Ich habe schon ältere Themen dazu hier im forum gefunden aber , da sagt mein VB 2022 das ist veraltet.
VB.NET-Quellcode
- Public Class Form1
- Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, ByVal Returnstring As String, ByVal returnlength As Integer, ByVal callback As Integer) As Integer
- Dim rs As String
- Dim cb As Integer
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- If Button1.Text = "Record" Then
- Button1.Text = "Stop"
- Button2.Enabled = False
- rs = New String(" ", 128)
- Call mciSendString("Open New Type waveaudio Alias capture", rs, 128, cb)
- Call mciSendString("record capture", rs, 128, cb)
- Else
- Button1.Text = "Record"
- Button2.Enabled = Enabled
- Call mciSendString("Stop capture", rs, 128, cb)
- Call mciSendString("save capture " & "D:\Aufnahme.wav", rs, 128, cb)
- Call mciSendString("Close capture", rs, 128, cb)
- End If
- End Sub
- ## Hier fehlt noch der Teil wie ich die Aufnahme.wav in eine Textdatei umwandeln kann
- ## da weis ich nicht wie ich es umsetzen kann
- ## Das ist schon der übersetzer Part
- Function Übersetzen(ByVal stext As String, ByVal language_comes As String, ByVal language_goes As String) As String
- Dim client As New Net.WebClient() #[i][b] VB 2022 meldet es ist veraltet [/b][/i]
- Dim übersetzung_vorläufig As String = client.DownloadString("http://translate.google.de/translate_a/t?client=t&text=" & stext & "&sl=" & language_goes & "&tl=" & language_comes)
- Dim TransRegEx As New Regex("\""trans\""\:\""(?<string>(.*))\""\,\""orig\""") # VB2022 Meldet REGEX ist nicht definiert
- Dim myTrans As String = TransRegEx.Match(übersetzung_vorläufig).Groups("string").ToString()
- Return myTrans
- End Function
- End Class
komme da gerade nicht weiter
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()