Jump to content
Sign in to follow this  
nacerbaaziz

question about reading the audio Play list using autoit

Recommended Posts

hello
Hi dear, I have a question please
I designed a function to read the content of the playlist
I succeeded in that
I have a problem
For VLC player playlists
If the path of the files in Arabic language the path is be as follows
%D8%A3%D8%B0%D9%83%D8%A7%D8%B1%20%D9%88%D8%A3%D8%AF%D8%B9%D9%8A%D8%A9/%D8%A3%D8%B0%D9%83%D8%A7%D8%B1%20%D9%85%D9%86%D9%88%D8%B9%D8%A9/%D8%A3%D8%B0%D9%83%D8%A7%D8%B1%2003.mp3
I did not know how to decrypt this text to be readable
This is the function that i used

func M3UImport($M3UFile)
dim $AM3UItems
local $fileOpen = FileOpen($path, bitOr($FO_OVERWRITE,$FO_CREATEPATH,$FO_ANSI))
_FileReadToArray ($fileOpen, $AM3UItems)
if @error then return setError(1)
local $M3UPath
for $i = 1 to $AM3UItems[0]
$AM3UItems[$i] = stringReplace($AM3UItems[$i], "file:///", "")
$AM3UItems[$i] = stringReplace($AM3UItems[$i], "/", "\")
$AM3UItems[$i] = stringReplace($AM3UItems[$i], "%20", " ")
$M3UPath = _fileGetDirPath($AM3UItems[$i])
if $M3UPath = "" then
$M3UPath = @WorkingDir
if not StringTrimRight($M3UPath, 1) = "\" then $M3UPath &= "\"
$AM3UItems[$i] = $M3UPath & $AM3UItems[$i]
endIf
local $ext = _GetFileExt($AM3UItems[$i])
if fileExists($AM3UItems[$i]) and not (StringInStr($FilesExt, $ext) = 0) then
$aListItems[0] += 1
GUICtrlCreateListViewItem(_GetFileName($AM3UItems[$i]) & Opt("GUIDataSeparatorChar") & " : " & Opt("GUIDataSeparatorChar") & $AM3UItems[$i], $list)
endIf
next
return ""
endFunc


I ask for your help in this work
with my Greetings and thanks in advance

Share this post


Link to post
Share on other sites

Hello. maybe something like this:

#include <Array.au3>
Local $sString = "%D8%A3%D8%B0%D9%83%D8%A7%D8%B1%20%D9%88%D8%A3%D8%AF%D8%B9%D9%8A%D8%A9/%D8%A3%D8%B0%D9%83%D8%A7%D8%B1%20%D9%85%D9%86%D9%88%D8%B9%D8%A9/%D8%A3%D8%B0%D9%83%D8%A7%D8%B1%2003.mp3"

MsgBox(0, "", _MakeReadable($sString))


Func _MakeReadable($sString)
    Local $aReg = StringRegExp($sString, '%[0-9a-fA-F]{2}|.', 3)
    Local $sChar = ""
    Local $sReadableString=""
    For $i = 0 To UBound($aReg) - 1
        $sChar = StringReplace($aReg[$i], "%", "")
        If StringLen($sChar) = 2 Then
            $sReadableString &= Chr("0x" & $sChar)
        Else
            $sReadableString &= $sChar
        EndIf
    Next
    Return BinaryToString(StringToBinary($sReadableString), 4)
EndFunc   ;==>_MakeTeadable

Saludos

Share this post


Link to post
Share on other sites

When I used this example, it just gave me as a result the number 3 only
Is there a solution please?

#include <Array.au3>
Local $sString = "%D8%A3%D8%B0%D9%83%D8%A7%D8%B1%20%D9%88%D8%A3%D8%AF%D8%B9%D9%8A%D8%A9/%D8%A3%D8%B0%D9%83%D8%A7%D8%B1%20%D9%85%D9%86%D9%88%D8%B9%D8%A9/%D8%A3%D8%B0%D9%83%D8%A7%D8%B1%2003.mp3"
MsgBox(0, "", _MakeReadable($sString))
Func _MakeReadable($sString)
Local $aReg = StringRegExp($sString, '%[0-9a-fA-F]{2}|.', 3)
    Local $sChar = ""
    Local $sReadableString=""
    For $i = 0 To UBound($aReg) - 1
$sChar = StringReplace($aReg[$i], "%", "")
If StringLen($sChar) = 2 Then
$sReadableString = Chr("0x" & $sChar)
Else
$sReadableString = $sChar
EndIf
Next
Return BinaryToString(StringToBinary($sReadableString), 4)
EndFunc


am waiting
:D

 

Share this post


Link to post
Share on other sites

$sReadableString = Chr("0x" & $sChar) needs to be $sReadableString &= Chr("0x" & $sChar) and $sReadableString = $sChar needs to be $sReadableString &= $sChar

 

 

Saludos

Share this post


Link to post
Share on other sites


i ded what you tell me but the result is 3
this is the function

#include <Array.au3>
Local $sString = "%D8%A3%D8%B0%D9%83%D8%A7%D8%B1%20%D9%88%D8%A3%D8%AF%D8%B9%D9%8A%D8%A9/%D8%A3%D8%B0%D9%83%D8%A7%D8%B1%20%D9%85%D9%86%D9%88%D8%B9%D8%A9/%D8%A3%D8%B0%D9%83%D8%A7%D8%B1%2003.mp3"
MsgBox(0, "", _MakeReadable($sString))
Func _MakeReadable($sString)
Local $aReg = StringRegExp($sString, '%[0-9a-fA-F]{2}|.', 3)
    Local $sChar = ""
    Local $sReadableString=""
    For $i = 0 To UBound($aReg) - 1
$sChar = StringReplace($aReg[$i], "%", "")
If StringLen($sChar) = 2 Then
$sReadableString = Chr("0x" & $sChar)
Else
$sReadableString = $sChar
EndIf
Next
Return BinaryToString(StringToBinary($sReadableString), 4)
EndFunc

Share this post


Link to post
Share on other sites

@nacerbaaziz

Because you use a screen reader, the ampersands are probably not getting translated correctly because they are immediately before an equal sign.  To make the function work correctly, you need to modify 2 lines that were not transcribed correctly.  Those 2 lines are below.

 

21 hours ago, nacerbaaziz said:

$sReadableString = Chr("0x" & $sChar)

 

21 hours ago, nacerbaaziz said:

$sReadableString = $sChar

On the 2 lines above, there should be an ampersand immediately before the equal sign (without a space in between).  The operator should read ampersand equal.

I hope that helps.

Share this post


Link to post
Share on other sites

Hello
it's worked with me, thank you very much
Now I have a simple request if you can help me please
the question Is how I can know if the string as   this type or normal string
I have to make it detect this type so there is no contradiction between the strings types
I mean the playlist can be in Arabic and it can be in English
I hope that my request is clear for you
Greetings

Share this post


Link to post
Share on other sites

@nacerbaaziz

You can either use @Danyfirex's function on all titles to make sure they are converted if necessary or you can search each title for an ampersand followed by 2 numeric digits, and if found, use the function.  The safest and most efficient way would be to do the check for the escape sequences and only convert if necessary.

Share this post


Link to post
Share on other sites

I've written the function as this form, please give me your opinion.

Func _MakeReadable($sString)
Local $aReg = StringRegExp($sString, '%[0-9a-fA-F]{2}|.', 3)
    Local $sChar = ""
    Local $sReadableString=""
local $number = 0
For $i = 0 To UBound($aReg) - 1
$sChar = StringReplace($aReg[$i], "%", "")
If StringLen($sChar) = 2 Then
$sReadableString &= Chr("0x" & $sChar)
$number += 1
Else
$sReadableString &= $sChar
$number -= 1
EndIf
Next
if $number < 2 then
return string($sReadableString)
else
Return BinaryToString(StringToBinary($sReadableString), 4)
endIf
EndFunc

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By ripdad
      This is a project that I have been working on for several months off and on.
      It's a simple "What You Hear" MP3 @ 320Kbps and WAV audio recorder.
      Features:
      - LoudMax, a Gain Controller and Look-Ahead Limiter
      - Auto Shut-Off after one minute of silence
      - Side-by-Side Simulated LED Meter
      - Running Time Counter
      It started off being a large project, but I eventually stripped it down to its
      bare essentials because I came to realize that it would be very difficult to
      deal with every sound card and every way a PC is set up for audio. It would
      have been a nightmare that I was not willing to go through.
      This project contains the most up-to-date BASS.dll v.2.4.15.0 - December 17, 2019.
      All BASS Dll's are 32bit. Those and the needed UDF's are included in the zip file.
      I will try to explain how it works in the next post.

      Download:
      BASS VST Recorder v1.1.zip
       
    • By ripdad
      This is an example script of how to load and use a VST using BASS in AutoIt.
      It is NOT immediately Plug and Play. You will need to download 2 VST's to run it.
      They are free for personal use.
      All information is in the header of the script.

      Download:
      BASS VST HOST v0.4.zip
       
    • By CYCho
      This file includes all the source codes and a compiled .exe version of zPlayer, which is a stand-alone, simple, intuitive and easy-to-use, yet fully functional audio player.  I made this to suit my purpose and you can tweak it to your taste as the source code is only about 1000 lines which are very much readable.  This player has the following functions:
      - Play back all formats of audio files which can be palyed back by the Windows Media Player in your computer
      - Graphical player similar to embedded Windows Media Player
      - Forward, backward, pause, repeat, shuffle funtions
      - Increase/decrease/mute sound volume
      - Change folders and create playlist for all audio files in that folder and its subfolders, and support for manually-made playlists
      - Save play-back environment when terminating and resume that environment when restarting
      - With one click, you can see DuckDuckGo search results for the file being played back
      - With a double-click, you can play back an item in the playlist
      - Search strings in the playlist
      - Option to see long file names including folder names
      - Resize the playlist window, and restore it to its default position
      - Very small footprint: very low CPU and memory usage, with only about 1MB when compiled
      - You can even hide all the windows and manipulate the player with hotkeys only
      Note: zPlayer is the name I used when I introduced the early version of this palyer in my blog back in early 2009 and, therefore, has nothing to do with the mobile media player of the same name which started marketing in 2015.
    • By PeterVerbeek
      In this post I take the opportunity to show the awesome capabilities of AutoIt and its libraries. My open source project Peace is a long running AutoIt based app located on SourceForge. It provides users with a system-wide equalizer and effects machine. It's an interface using the power of Equalizer APO, an audio processing object software. Peace has been download over 1,100,000 times by various kind of users. Amongst others it gives them possibilities like these:
      Hearing impaired - Amplify the gain of frequencies which are impaired. Home Theatre - Create Equalizer presets for watching movies and listening to music. Music lovers & audiophiles - Create presets for listening to music on their high quality speakers and headphones. Gamers - Enhance frequencies to get an edge over other gamers. Headphones - Improve the sound quality of cheap headphones and get the max out of expensive ones. Bass lovers - Boost low frequencies for extra bass. Voice - Make a microphone sound better and improve the voice, for instance for YouTube usage. Low audio - Boost low audio of an input source to a comfortable level. This list covers the main needs of the Peace user. Many people have contacted me over the years asking for new features and telling me how they use Peace for their (sometimes specific) needs.  I was able to use AutoIt and its libraries for all of their needs. So what are the main features of Peace?
      Equalize your computer audio by using up to 31 sliders. Support of equalizing 9 speakers : left/right, center, subwoofer, left/right rear, left/right side. Per slider a filter can be chosen such as peak, low/high pass, shelving. The graph windows shows your equalization so you see exactly what you're doing. Apply an effect such as crossfeed simple/Jan Meier/Chu Moy, stereo balance, bass/treble, upmix/downmix, channel routing. Save presets (called configurations) and activate by mouse click, hotkey, desktop shortcut or Peace system tray. Select a target device to equalize, microphone as input can also be equalized. Automate: you can let Peace automatically activate presets on a switch to another device and another process. Peace is available in these languages: English, Czech, Deutsch, Français, Italiano, Nederlands, Pусский, Українська So who am I? I'm a Dutch programmer who happens the stumble upon AutoIt 5 years ago and created a small Equalizer interface app of less than 400 program lines with it. Nowadays Peace has grown to more than 17,000 lines as many features were added. Although Peace is open source, the program code isn't of the best possible quality. The reason being that I didn't expect it to become so popular. It caught me by supprise. I've created a Library of functions called Pal (link to forum post) which quality is up to the AutoIt community standard as counterpart to the Peace program code.
      I want to state here that AutoIt is a mature program language as Peace obviously shows. I wish it to be used more extensively for professional or semi-professional apps. In my view AutoIt deserves a place amongst the major programming languages for Windows computers.
      Regards,
      Peter Verbeek







    • By ripdad
      I ran across a topic while researching the BASS UDF...
      https://www.autoitscript.com/forum/topic/155845-carpenter-needs-help-performing-serious-surgery-on-audiometer2/ and then remembered another topic...
      https://www.autoitscript.com/forum/topic/121624-sound-level-sampling/ which got me to thinking as to how I could get the first topic to go LIVE without the need of loading an mp3.
      This will accept any LIVE AUDIO INPUT.
      Be sure to read this post if you have trouble with it...
      https://www.autoitscript.com/forum/topic/121624-sound-level-sampling/?do=findComment&comment=1400178 Also, read the comments I made in the script, so you will know how it will react to LIVE INPUT streams.

      Live FFT Visual Spectrum.zip
       

      LIVE Multiband FFT Visual Spectrum.au3
       
×
×
  • Create New...