Android Question WAV file to text

[peggjones]

Does anyone know if it possible to convert a WAV file to text.

 

[Brian Dean]

Yes it is, if you want the text to be the file content in hexadecimal notation, for instance. But I don't think that is what you are looking for.

 

[Erel]

Dim su As StringUtils
Dim s As String = su.EncodeBase64(File.ReadBytes(...))

 

[peggjones]

The file object in my version of B4A does not have a readbytes method. Is this because the version I have is out of date? I have version 8.00

 

[npsonic]

The file object in my version of B4A does not have a readbytes method. Is this because the version I have is out of date? I have version 8.00

Use this

Sub ReadBytes (Dir As String, Filename As String) As Byte()
    Dim input As InputStream = File.OpenInput(Dir,Filename)
    Dim b(input.BytesAvailable) As Byte
    input.ReadBytes(b,0,b.Length)
    input.Close
    Return b
End Sub

 

[MarkusR]

u will really convert a wave file to string? why?
u will save it into a sqllite db?

 

[peggjones]

Thanks for that but what I actually want it to do is to return as text the contents of the wav file.

 

[peggjones]

Yes the intention is to save it to a sqllite database.

 

[MarkusR]

removed because misunderstood

 

[udg]

As I understand it, the OP would like to "transcribe" the content of the WAV file to plain text, i.e. from a recorded vocal message to its corresponding text, then save the text in a DB.
Maybe an online service offered by some big data company? I didn't search for it...it's coffee time!

 

[peggjones]

What I am trying to achieve is to record people speaking in different languages and convert the recorded files to text for analysis of the structure of the different languages. Sounds a bit odd I know but it is for a linguistics project.

 

[MarkusR]

ahh, do you still need the wave file then or u just need the text?

for voice to text i used this

Sub ButtonNoteVoice_Click

    Dim Voice1 As MyVoice
    Voice1.Initialize

    Wait For (Voice1.RecognizeVoice) Complete (Result As String)
    EditTextNote.Text= Result
    
End Sub

Class MyVoice

Sub Class_Globals
    Private Voice1 As VoiceRecognition 'Phone library
End Sub

'Initialisiert das Objekt. Falls nötig kannst du Parameter zu dieser Methode hinzufügen.
Public Sub Initialize
    Voice1.Initialize("Voice1")
    Voice1.Language="de"
End Sub

public Sub RecognizeVoice As ResumableSub
    Voice1.Listen
    Wait For Voice1_Result (Success As Boolean, Texts As List)
    If Success And Texts.Size > 0 Then       
        Return "" & Texts.Get(0)
    End If
    Return ""
End Sub

 

[peggjones]

Just the text.

 

[MarkusR]

ok, see above, maybe u can use it.
its without wave file.
i think without knowing the people spoken languages it will not work.
i guess you will try to create a phonetic language text from the recorded sound.
https://en.wikipedia.org/wiki/Phonetic_transcription

 

[udg]

A few references..all before the coffe

https://cloud.google.com/speech-to-text/
https://gotranscript.com/r/19405
http://transcribe.wreally.com/
https://sonix.ai/

https://www.tomdownload.com/business_finance/word_processing/wave_to_text.htm (an SDK is available)

 

[peggjones]

As I understand it, the OP would like to "transcribe" the content of the WAV file to plain text, i.e. from a recorded vocal message to its corresponding text, then save the text in a DB.
Maybe an online service offered by some big data company? I didn't search for it...it's coffee time!

You understand it perfectly, thanks for taking an interest. I'm surprised it's so difficult. I thought it would be dead straightforward, after all it is easy to record speech to a sound file.

 

[Brian Dean]

I thought it would be dead straightforward, after all it is easy to record speech to a sound file.

Edit : Removed - not a helpful contribution.