Differenze tra le versioni di "Filtrare i caratteri invalidi UTF8 ed ASCII da una stringa con le funzioni esterne del API di PulseAudio"

Da Gambas-it.org - Wikipedia.
 
(2 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
 
La libreria di ''PulseAudio'' ci consente anche di filtrare una determinata stringa depurandola dai caratteri invalidi che siano di formato UTF8 e/o di formato ASCII.
 
La libreria di ''PulseAudio'' ci consente anche di filtrare una determinata stringa depurandola dai caratteri invalidi che siano di formato UTF8 e/o di formato ASCII.
  
 
+
Per fruire di tale risorsa in Gambas, è necessario dichiarare e richiamare la libreria condivisa: "''libpulse.so.0.24.1'' ".
Per fruire ditale risorsa in Gambas, è necessario dichiarare e richiamare la libreria dinamica condivisa: "''libpulse.so.0.21.2''"
 
 
 
  
 
Mostriamo un esempio pratico essenziale:
 
Mostriamo un esempio pratico essenziale:
  Library "libpulse:0.21.2"
+
  Library "libpulse:0.24.1"
 
   
 
   
 
  <FONT Color=gray>' ''char *pa_ascii_filter(const char *str)''
 
  <FONT Color=gray>' ''char *pa_ascii_filter(const char *str)''
Riga 17: Riga 15:
 
   
 
   
 
   
 
   
  '''Public''' Sub Main()
+
  Public Sub Main()
 
    
 
    
 
   Dim s, t As String
 
   Dim s, t As String
    
+
  s = "abc" & Chr(190) & "dèf"
+
   s = "abc" & Chr(190) & "dèf"
  Print s
+
  Print s
  Print
+
  Print
 
    
 
    
  Wait 1
+
  Wait 1
 
    
 
    
  t = pa_ascii_filter(s)
+
  t = pa_ascii_filter(s)
 
      
 
      
  Print t
+
  Print t
 
      
 
      
  t = pa_utf8_filter(s)
+
  t = pa_utf8_filter(s)
 
      
 
      
  Print t
+
  Print t
 
    
 
    
  '''End'''
+
  End
 
 
  
  

Versione attuale delle 07:25, 24 giu 2023

La libreria di PulseAudio ci consente anche di filtrare una determinata stringa depurandola dai caratteri invalidi che siano di formato UTF8 e/o di formato ASCII.

Per fruire di tale risorsa in Gambas, è necessario dichiarare e richiamare la libreria condivisa: "libpulse.so.0.24.1 ".

Mostriamo un esempio pratico essenziale:

Library "libpulse:0.24.1"

' char *pa_ascii_filter(const char *str)
' Filter all invalid ASCII characters from the specified string.
Private Extern pa_ascii_filter(strs As String) As String

' char *pa_utf8_filter(const char *str)
' Filter all invalid UTF8 characters from the specified string.
Private Extern pa_utf8_filter(strs As String) As String


Public Sub Main()
 
 Dim s, t As String

 s = "abc" & Chr(190) & "dèf"
 Print s
 Print
  
 Wait 1
  
 t = pa_ascii_filter(s)
   
 Print t
   
 t = pa_utf8_filter(s)
   
 Print t
  
End


Riferimenti