Visual Basic.Net

Silverlight: localizzazione delle risorse

Andrea Zingoni — Wed, 30 Nov 2011 09:45:02 GMT

Per rendere multilingua l’interfaccia del nostro plug-in dobbiamo aggiungere al progetto Silverlight dei File di risorse contenenti le traduzioni di tutti i testi che vogliamo visualizzare.

Per localizzazione non si intende la traduzione automatica di tutti i messaggi dell’applicazione, bensì semplicemente la traduzione di tutti i testi visibili nei controlli. La traduzione dei messaggi di validazione la vedremo in un prossimo post.

Creiamo un nuova applicazione Silverlight:

Creiamo il nostro controllo:

    <Grid x:Name="LayoutRoot" Background="White">
        <sdk:Label Margin="25,24,0,0" Name="Label1" Content="Label1" HorizontalContentAlignment="Center" HorizontalAlignment="Left" Width="55" Height="23" VerticalAlignment="Top" d:LayoutOverrides="VerticalAlignment" />
        <TextBox Height="23" HorizontalAlignment="Left" Margin="84,20,0,0" Name="TextBox1" VerticalAlignment="Top" Width="120" HorizontalContentAlignment="Center" />
        <Button Content="Button" Height="23" HorizontalAlignment="Left" Margin="84,49,0,0" Name="Button1" VerticalAlignment="Top" Width="120" HorizontalContentAlignment="Center" />
    </Grid>

Andiamo ad impostare le culture (CultureInfo) che il nostro plug-in potrà identificare. Per farlo dobbiamo modificare il file di progetto. Scarichiamo il progetto e andiamo a modificarne il file .vbproj:

Identifichiamo il tag <SupportedCultures>

 <SupportedCultures>it</SupportedCultures>

ed aggiungiamoci le lingue desiderate:

<SupportedCultures>it;en;en-US;fr;</SupportedCultures>

In questo caso, oltre che all’italiano, abbiamo aggiunto l’inglese (en), l’inglese americano (en-US), ed il francese (fr).

Salviamo il file e ricarichiamo il progetto:

Aggiungiamo un file di risorse in cui andremo ad inserire tutte le descrizioni che vogliamo visualizzare nelle varie lingue. In Esplora Soluzioni clicchiamo col tasto destro sul nome del progetto (o in una cartella specifica), selezioniamo Aggiungi=>Nuovo elemento… ed aggiungiamo un File di risorse:

Apriamo il file di risorse cliccandoci sopra due volte:

Inseriamo due nuovi valori stringa che si riferiscono rispettivamente al testo dell’etichetta ‘Label1’ ed al testo del pulsante ‘Button1’.

Stiamo impostando i valori per la lingua di default, ossia l’italiano, quindi i valori delle stringhe dovranno essere in italiano.

Impostare come Public i marcatori d’accesso di ogni risorsa.

A questo punto è necessario crearsi una classe che ci permetta di accedere alle risorse tramite il DataBinding dei controlli.

Public Class myLocalization
    ' Wrapper per le risorse.
    Public ReadOnly Property Risorse_MainPage() As My.Resources.MainPage
        Get
            Return New My.Resources.MainPage
        End Get
    End Property
End Class

NB: se nel file delle risorse non avessimo impostato i marcatori su Public, non avremmo potuto accedervi dalla nostra classe.

Referenziamo la nostra classe all’interno del nostro plug-in importando il relativo namespace (nell’esempio lo contrassegniamo col suffisso ’my’):

<UserControl x:Class="myLocalization.MainPage"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    mc:Ignorable="d"
              xmlns:my="clr-namespace:myLocalization"

Inseriamo la nostra classe nelle risorse statiche (StaticResource) dell’UserControl Silverlight:

    <UserControl.Resources>
        <my:myLocalization x:Key="myWrapperLocalization"/> <!--Imposta nelle risorse la classe per la localizzazione.-->
    </UserControl.Resources>

A questo punto la nostra classe (che è esposta col nome ‘myWrapperLocalization’) è accessibile da tutti i controlli contenuti all’interno dell’UserControl.

Impostiamo il binding dei controlli interessati:

- Label1 => Content

- Button1 => Content

Origine (Source):

Percorso (Path):

Questo è il risultato in XAML:

<Button Content="{Binding Path=Risorse_MainPage.Button1, Source={StaticResource myWrapperLocalization}}"

Una volta impostati il binding è possibile notare che nel design i controlli hanno già recuperato i valori della lingua di default:

Adesso creiamo le risorse per tutte le altre lingue che ci interessano. Copiare/Incollare il file di risorsa (.resx) che abbiamo utilizzato per la lingua di default (MainPage.resx) e traduciamo ogni singolo valore:

Rinominiamo la nostra risorsa appena tradotta in ‘MainPage.en.resex’.

In questo modo abbiamo creato un file di risorse per la lingua inglese.

Modifichiamo i valori delle risorse all’interno di questo file stando attenti a NON MODIFICARE le relative chiavi identificative (Nome):

Il motore delle risorse segue un ordine ben preciso nel leggere i file .resex riferiti alle culture: per primo legge il file contenente la lingua specifica, ossia quello denominato ‘nomefile.[cultura-lingua].resex’ => MainPage.en-US.resex (in questo caso l’inglese americano), se eventualmente non dovesse trovare questo file, allora legge quello riferito alla cultura generica (detta neutrale) ‘nomefile.[cultura].resex’ => MainPage.en.resex . Nel caso poi non dovesse trovare neppure il file con la cultura generica, il motore andrà a leggere il file con la lingua di default MainPage.resex .

Questa lettura gerarchica ci permette di scrivere la maggior parte delle voci multilingue nei file .resex relativi alle lingue generiche. Solo nei casi particolari si dovranno specificare le stesse voci nei file delle lingue specifiche.

Crearsi tutti i file desiderati ricordandosi di rinominare correttamente ognuno dei file .resx:

Di default Silverlight legge la lingua del sistema operativo, quindi per testare il progetto dobbiamo apportare alcune modifiche.

Possiamo testare la nostra applicazione in due modi:

forzare da codice la lingua del plug-in;
impostare la lingua del plug-in tramite la pagina web che lo ospita.

Il modo più semplice è quello di forzare la lingua del plug-in nel suo evento Application_Startup:

    Private Sub Application_Startup(ByVal o As Object, ByVal e As StartupEventArgs) Handles Me.Startup
        ' Forza la lingua.
        System.Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo("fr")
        Me.RootVisual = New MainPage()
    End Sub

Il nostro controllo in francese:

Per impostare la lingua dalla pagina web che ospita il controllo vi rimando al post ASP.NET: passare dinamicamente un valore (o un insieme di valori) a Silverlight.

In questo modo sarà possibile testare la nostra applicazione Silverlight cambiando le impostazioni della lingua direttamente dal nostro browser:

Tag di Technorati: Silverlight,lingue,localizzazione,Culture,UICulture,multilingua,multilanguage,localization

ASP.NET: passare dinamicamente un valore (o un insieme di valori) a Silverlight.

Andrea Zingoni — Mon, 28 Nov 2011 10:25:50 GMT

A differenza del post precedente (ASP.NET: passare un valore statico a Silverlight), per passare dinamicamente un valore a Silverlight da una pagina .aspx, bisogna: contrassegnare il plug-in Silverlight come oggetto server, aggiungerci il parametro InitParams, contrassegnare anch’esso come oggetto server, popolare il parametro direttamente dalla pagina .aspx.

Assegnare un identificativo (id) all’oggetto Silverlight e contrassegnare il plug-in come oggetto server:

<body>
    <form id="form1" runat="server" style="height:100%">
    <div id="silverlightControlHost" runat="server">
        <object data="data:application/x-silverlight-2," type="application/x-silverlight-2" width="100%" height="100%">
		  <param name="source" value="ClientBin/SilverlightApplication1.xap"/>
		  <param name="onError" value="onSilverlightError" />
		  <param name="background" value="white" />
		  <param name="minRuntimeVersion" value="4.0.50826.0" />
		  <param name="autoUpgrade" value="true" />
          <a href="http://go.microsoft.com/fwlink/?LinkID=149156&v=4.0.50826.0" style="text-decoration:none">
 			  <img src="http://go.microsoft.com/fwlink/?LinkId=161376" alt="Scarica Microsoft Silverlight" style="border-style:none"/>
		  </a>
	    </object><iframe id="_sl_historyFrame" style="visibility:hidden;height:0px;width:0px;border:0px"></iframe></div>
    </form>
</body>

Aggiungere il parametro InitParams, contrassegnarlo come oggetto server, impostargli un identificativo e aggiungergli un attributo ‘value’ vuoto:

<body>
    <form id="form1" runat="server" style="height:100%">
    <div id="silverlightControlHost" runat="server">
        <object data="data:application/x-silverlight-2," type="application/x-silverlight-2" width="100%" height="100%">
		  <param name="source" value="ClientBin/SilverlightApplication1.xap"/>
		  <param name="onError" value="onSilverlightError" />
		  <param name="background" value="white" />
		  <param name="minRuntimeVersion" value="4.0.50826.0" />
		  <param name="autoUpgrade" value="true" />
                    <param name="initParams" id="myInitParams" runat="server" value=""/>
          <a href="http://go.microsoft.com/fwlink/?LinkID=149156&v=4.0.50826.0" style="text-decoration:none">
 			  <img src="http://go.microsoft.com/fwlink/?LinkId=161376" alt="Scarica Microsoft Silverlight" style="border-style:none"/>
		  </a>
	    </object><iframe id="_sl_historyFrame" style="visibility:hidden;height:0px;width:0px;border:0px"></iframe></div>
    </form>
</body>

In un qualunque evento della pagina .aspx che precede l’inizializzazione dell’oggetto Silverlight, aggiungere la coppia chiave/valore dei dati desiderati all’attributo ‘value’:

Public Class SilverlightApplication1TestPage
    Inherits System.Web.UI.Page
    Private Sub Me_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            ' Recupera le preferenze linguistiche del browser.
            Dim preferenzaCultura As String() = HttpContext.Current.Request.UserLanguages
            ' Passa il valore all'oggetto Silverlight.
            Me.myInitParams.Attributes.Add("value", "UICulture=" & preferenzaCultura(0))
        End If
    End Sub
End Class

Aprire il file di code-behind ‘App.xaml.vb(cs)’ e nell’Application_Startup leggere la collection InitParams:

    Private Sub Application_Startup(ByVal o As Object, ByVal e As StartupEventArgs) Handles Me.Startup
        ' Legge i parametri iniziali del pug-in.
        If e.InitParams.Count > 0 Then
            Dim cultureName As String = e.InitParams("UICulture").ToString()
            ' Imposta la lingua del browser.
            If String.IsNullOrEmpty(cultureName) = False Then
                System.Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo(cultureName)
            End If
            ' Aggiunge il valore alle risorse.
            App.Current.Resources.Add("UICulture", System.Threading.Thread.CurrentThread.CurrentUICulture.DisplayName)
        End If
        Me.RootVisual = New MainPage()
    End Sub

In questo esempio, dalla pagina .aspx è stata passata la preferenza della lingua del browser e Silverlight l’ha impostata come propria lingua dell’applicazione.

E’ possibile passare dinamicamente più di un valore all’oggetto Silverlight:

Me.myInitParams.Attributes.Add("value", "chiave1=Valore1,chiave2=Valore2,Chiave3=Valore3")

Per un esempio completo sul passaggio di più valori leggere il post ASP.NET: passare un valore statico a Silverlight.

ASP.NET: passare un valore statico a Silverlight.

Andrea Zingoni — Mon, 28 Nov 2011 09:39:44 GMT

Per passare a Silverlight il valore di una pagina .aspx bisogna aggiungere allo stesso plug-in il parametro <InitParams>.

Nella pagina del server identificare l’inizializzazione dell’oggetto Silverlight ed aggiungerci il seguente tag:

    <param name="initParams" value="chiave1=valore1"/>

dove l’attributo ‘value’ è il nostro valore personalizzato contrassegnato dalla chiave univoca ‘chiave1’.

<body>
    <form id="form1" runat="server" style="height:100%">
    <div id="silverlightControlHost">
        <object data="data:application/x-silverlight-2," type="application/x-silverlight-2" width="100%" height="100%">
		  <param name="source" value="ClientBin/SilverlightApplication1.xap"/>
		  <param name="onError" value="onSilverlightError" />
		  <param name="background" value="white" />
		  <param name="minRuntimeVersion" value="4.0.50826.0" />
		  <param name="autoUpgrade" value="true" />
                         <param name="initParams" value="chiave1=valore1"/>
		  <a href="http://go.microsoft.com/fwlink/?LinkID=149156&v=4.0.50826.0" style="text-decoration:none">
 			  <img src="http://go.microsoft.com/fwlink/?LinkId=161376" alt="Scarica Microsoft Silverlight" style="border-style:none"/>
		  </a>
	    </object><iframe id="_sl_historyFrame" style="visibility:hidden;height:0px;width:0px;border:0px"></iframe></div>
    </form>
</body>

A questo punto è possibile leggere il parametro InitParams direttamente dall’applicazione Silverlight.
Aprire il file di code-behind ‘App.xaml.vb(cs)’ e nell’Application_Startup recuperare e memorizzare nelle risorse dell’applicazione il contenuto della collection InitParams:

    Private Sub Application_Startup(ByVal o As Object, ByVal e As StartupEventArgs) Handles Me.Startup
        ' Legge i parametri iniziali del pug-in.
        Me.Resources.Add("Nuovo nome risorsa", e.InitParams("chiave1"))
        Me.RootVisual = New MainPage()
    End Sub

La collection InitParams è leggibile solamente in questa routine dell’applicazione Silverlight.

A questo punto è possibile recuperare il valore passato dalla pagina .aspx recuperandolo dalle risorse dell’applicazione:

Partial Public Class MainPage
    Inherits UserControl
    Public Sub New()
        InitializeComponent()
        Me.Label1.Content = App.Current.Resources("Nuovo nome risorsa")
    End Sub
End Class

E’ possibile inserire più di un valore nell’inizializzazione dell’oggetto Silverlight:

<param name="initParams" value="chiave1=valore1,chiave2=valore2,chiave3=valore3"/>

Per leggere tutti i valori impostati si dovrà ciclare l’intera collections InitParams:

    Private Sub Application_Startup(ByVal o As Object, ByVal e As StartupEventArgs) Handles Me.Startup
        ' Legge i parametri iniziali del pug-in.
        For Each p In e.InitParams
            Me.Resources.Add(p.Key, p.Value)
        Next
        Me.RootVisual = New MainPage()
    End Sub

Successivamente si potrà ciclare l’intera collection delle risorse dell’applicazione, oppure si potrà richiamare direttamente un singolo valore tramite la sua chiave identificativa:

Partial Public Class MainPage
    Inherits UserControl
    Public Sub New()
        InitializeComponent()
        For Each r In App.Current.Resources
            Me.Label1.Content &= String.Format("{0}={1}{2}", r.key, r.value, Environment.NewLine)
        Next
    End Sub
End Class

Abbiamo visto come passare dei valori statici all’oggetto Silverlight, ossia scrivendoli manualmente del markup della pagina .aspx in fase di progettazione della stessa. Per passare invece dei valori dinamicamente leggere il post ASP.NET: passare dinamicamente un valore (o un insieme di valori) a Silverlight.

Tag di Technorati: Silverlight,ASP.NET,InitParams,Passare valore a Silverlight

Popolare DataGridView manualmente

Andrea Zingoni — Mon, 11 Apr 2011 13:16:24 GMT

Memorizzo qui un piccolo snippet per popolare manualmente una DataGridView (bound e/o unbound) in cui sono già state create le DataGridViewColumns.

                Dim dgvRow As New DataGridViewRow
                dgvRow.CreateCells(Me.dgvAllegati)
                With dgvRow
                    .Cells(0).Value = "valore colonna 0"
                    .Cells(1).Value = "valore colonna 1"
                    .Cells(2).Value = "valore colonna 2"
                    .Cells(3).Value = "valore colonna 3"
                End With
                Me.dgvAllegati.Rows.Add(dgvRow)

Questo codice è comodo se non vogliamo andare a lavorare direttamente sulla sorgente dati.

Web Services: impossibile caricare la sezione di configurazione endpoint

Andrea Zingoni — Tue, 09 Mar 2010 14:18:06 GMT

Lavorando (“smanettando”) coi Web Services si potrebbe incorrere nella seguente eccezione di Visual Studio:

“Impossibile caricare la sezione di configurazione endpoint per il contratto 'mio Web Service Soap'. Trovata più di una configurazione per il contratto. Indicare la sezione di configurazione endpoint preferita per nome.”

L’errore non sta nella configurazione del server, bensì nella configurazione dell’applicazione che deve collegarsi al Web Service.

Succede che nel file di configuazione dell’applicazione talvolta vengano generati in automatico due riferimenti uguali allo stesso Web Service.

Per correggere l’errore basta aprire il file di configurazione dell’applicazione selezionandolo da Esplora Soluzioni di Visual Studio:

Scorrerlo ed identificare il tag <endpoint> in cui viene configurata la chiamata al Web Service.

A questo punto è possibile notare la doppia dichiarazione:

Basterà quindi eliminare la seconda (terza, o quarta… :-P) dichiarazione per far funzionare correttamente la nostra applicazione.

HTH

PS: Perchè in italiano c’è pochissima documentazione a riguardo??…

Intercettare l’evento ItemCheck della CheckedListBox

Andrea Zingoni — Mon, 14 Dec 2009 16:32:28 GMT

Sfortunatamente la CheckedListBox non possiede un evento che si scatena dopo che è stato “flaggato” un item, percui è difficile poter interagire direttamente con l’elemento selezionato.

E’ possibile aggirare il problema creando degli items personalizzati visto che all’interno della CheckedListBox è possibile aggiungere qualunque oggetto indicizzato (che espone l’interfaccia IDictionary).

Creiamo una classe personalizzata che rappresenti un item e che abbia una proprietà di tipo CheckState che memorizzi il flag impostato dalla CheckedListBox che lo contiene.

' Oggetto personalizzato myChekedItem.
Public Class myChekedItem
    Private _Nome As String
    Property Nome() As String
        Get
            Return _Nome
        End Get
        Set(ByVal value As String)
            _Nome = value
        End Set
    End Property

    Private _Stato As CheckState
    Property Stato() As CheckState
        Get
            Return _Stato
        End Get
        Set(ByVal value As CheckState)
            _Stato = value
        End Set
    End Property

    Public Sub New(ByVal nome As String, ByVal stato As CheckState)
        Me.Nome = nome
        Me.Stato = stato
    End Sub

    Public Overrides Function ToString() As String
        Return Me.Nome
    End Function
End Class

Eseguendo l’overrides della funzione .ToString della classe base, permetteremo alla CheckedListBox di visualizzare automaticamente la proprietà Nome nell’item personalizzato, senza dover impostare la proprietà (nascosta) DisplayMember.

Popoliamo la CheckedListBox con gli items personalizzati.

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Aggiunge gli oggetti myChekedItem alla CheckedListBox.
        Me.CheckedListBox1.Items.Add(New myChekedItem("prova Item personalizzato 1", CheckState.Indeterminate))
        Me.CheckedListBox1.Items.Add(New myChekedItem("prova Item personalizzato 2", CheckState.Indeterminate))
    End Sub

Intercettiamo l’evento .ItemCheck della CheckedListBox e risaliamo all’item personalizzato selezionato:

    Private Sub CheckedListBox2_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck
        ' Imposta il checkstate all'oggetto myChekedItem selezionato.
        Dim chkItem As myChekedItem = DirectCast(Me.CheckedListBox1.Items(e.Index), myChekedItem)
        chkItem.Stato = e.NewValue

        ' Aggiunge l'item selezionato.
        If e.NewValue = CheckState.Checked Then
            Me.ListBox1.Items.Add(chkItem)
        ElseIf e.NewValue = CheckState.Unchecked Then
            Me.ListBox1.Items.Remove(chkItem)
        End If
    End Sub

All’interno dell’evento .ItemCheck gestiremo i nostri items come oggetti indipendenti sfruttandone tutte le loro funzionalità. In questo caso li abbiamo aggiunti o rimossi ad una ListBox sfruttandone i metodi .Items.Add e .Items.Remove a seconda del valore della loro prorietà Stato.

Tag Cloud: CheckedListBox, ItemCheck, Tips

Se lo StreamWriter è troppo lento

Andrea Zingoni — Fri, 23 Oct 2009 07:48:07 GMT

Generalmente per salvare un file di testo è molto comodo utilizzare uno StreamWriter:

            Dim sw As New IO.StreamWriter("C:\SW prova.txt")
            sw.Write("Mio testo")
            sw.Flush()
            sw.Close()

Se il testo da salvare però è di grandi dimensioni, lo StreamWriter sarà lento ad eseguire la scrittura su disco. Per evitare rallentamenti è possibile salvare il file come flusso di byte utilizzando la classe IO.FileStream:

            Dim fs As New IO.FileStream("C:\FS prova.txt", IO.FileMode.OpenOrCreate)
            Dim enc As New System.Text.UTF8Encoding
            Dim bytes() As Byte = enc.GetBytes("Mio testo molto lungo")
            fs.Write(bytes, 0, bytes.Length)
            fs.Flush()
            fs.Close()

Nome del primo e dell’ultimo giorno del mese

Andrea Zingoni — Mon, 12 Oct 2009 10:53:14 GMT

Niente di eccezionale ma abbastanza utile:

Public Class myDaysOfYear
    Public Shared Function GetFirstDayOfMonth(ByVal data As Date) As Date
        Return DateTime.Parse(String.Format("01/{0}/{1}", data.Month, data.Year))
    End Function

    Public Shared Function GetNameOfFirstDayOfMonth(ByVal data As Date) As String
        Return Globalization.CultureInfo.CurrentCulture.DateTimeFormat.GetDayName(GetFirstDayOfMonth(data).DayOfWeek)
    End Function

    Public Shared Function GetLastDayOfMonth(ByVal data As Date) As Date
        Return DateTime.Parse(String.Format("{0}/{1}/{2}", Date.DaysInMonth(data.Year, data.Month), data.Month, data.Year))
    End Function

    Public Shared Function GetNameOfLastDayOfMonth(ByVal data As Date) As String
        Return Globalization.CultureInfo.CurrentCulture.DateTimeFormat.GetDayName(GetLastDayOfMonth(data).DayOfWeek)
    End Function
End Class

Le funzioni della classe si richiamano così:

        Dim NomeDelPrimoGiornoDelMese As String = myDaysOfYear.GetNameOfFirstDayOfMonth(DateTime.Today)
        Dim DataPrimoGiornoDelMese As Date = myDaysOfYear.GetFirstDayOfMonth(DateTime.Today)
        Dim NomeUltimoGiornoDelMese As String = myDaysOfYear.GetNameOfLastDayOfMonth(DateTime.Today)
        Dim DataUltimoGiornoDelMese As Date = myDaysOfYear.GetLastDayOfMonth(DateTime.Today)

RowFilter non funziona con i nomi di colonna con spazi

Andrea Zingoni — Mon, 17 Aug 2009 17:00:29 GMT

Può capitare di ritrovarsi con una DataTable contenente delle DataColumns nominate in modo non convenzionale, ossia con caratteri non validi o con spazi.

In questo caso le proprietà .RowFilter e .Sort dell’oggetto DataView non funzionano correttamente.

Per aggirare questo problema basta rinominare le colonne interessate prima di impostare il filtro di ricerca o di ordinamento:

            ' Rinomina la colonna "Nome colonna con spazi" in "Nome_colonna_con_spazi".
            dt.Columns(13).ColumnName = dt.Columns(13).ColumnName.Replace(" ", "_")

            ' Imposta il filtro sulla colonna rinominata.
            dt.DefaultView.RowFilter = String.Format("{0} = '{1}'", dt.Columns(13).ColumnName, "Italia")

Volendo è possibile ripristinare il nome originale eseguendo l’operazione inversa dopo aver impostato i filtri.

            dt.Columns(13).ColumnName = dt.Columns(13).ColumnName.Replace("_", " ")

Technorati Tag: Tips,DataTable,DataView

Censurare le parole non gradite

Andrea Zingoni — Tue, 04 Aug 2009 12:55:04 GMT

Non ho mai avuto l'esigenza di censurare l'input dell'utente ma leggendo un post su DNW ho capito che è una cosa da fare necessariamente, soprattutto se si gestiscono forum o altre discussioni pubbliche.

Proviamo quindi a realizzare una funzione che effettui il controllo delle parole non gradite.

La censura potrebbe avvenire semplicemente sovrascrivendo le parole indesiderate con dei caratteri non leggibili (es. l'asterisco).

Il sistema presentato avrà una contronidicazione: censurarà parti di parole che in realtà non devono essere censurate. Prendiamo ad esempio una frase come questa:

Cazzottare un figaro siculo (prendere a pugni un barbiere siciliano)

la versione censurata risulterà in questo modo:

c****ttare un f***ro sic***

Per evitare censure di questo tipo bisognerà lavorare molto sulla logica del programma tenendo in considerazione svariati scenari (parole singole, parole incorporate, parole con spazi, ecc…)

La funzione che segue non tiene conto della sopracitata logica ma effettua una censura indistinta delle parole indesiderate.

Il codice della funzione è molto semplice.

Creiamo un elenco in un file di testo (o in un database) delle parole da censurare (parolaccie, offese, riferimenti religiosi, ecc...)

parolaA

parolaB

parolaC

…

Cicliamo ognuna di queste parole e controlliamo se è presente nel testo da controllare. Se la parola è presente nel testo, la sovrascriveremo con una serie di caratteri non leggibili utilizzando una regular expression.

Chi non ha dimestichezza con le regex può sfruttare direttamente il metodo .Replace dell'oggetto stringa (String, Textbox.Text, ecc...) ma questa soluzione non è performante come l'utilizzo delle regular expression. Un trucco per velocizzare comunque questo procedimento potrebbe essere quello di appoggiarsi ad uno stringbuilder ma a conti fatti il codice da scrivere risulterebbe più articolato di quello delle regex.

    ' VB.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TextBox2.Text = Me.CensorRegex(Me.TextBox1.Text)
    End Sub

    Private Function CensorRegex(ByVal text As String) As String
        Dim path As String = "c:\Parole sgradite.txt"
        If My.Computer.FileSystem.FileExists(path) Then
            Using sr As New IO.StreamReader(path)
                Do While sr.Peek() >= 0

                    ' Crea il pattern per la regex.
                    Dim pattern As String = String.Format("{0}", sr.ReadLine)

                    ' Crea la stringa di censura.
                    Dim mask As String = String.Format("{0}{1}", pattern.Substring(0, 1), New String("*"c, pattern.Length - 1))

                    ' Esegue la censura.
                    text = Regex.Replace(text, pattern, mask, RegexOptions.IgnoreCase)
                Loop

                sr.Close()
            End Using

            ' Ritorna il valore.
            Return text
         Else
            MessageBox.Show(String.Format("File {0} non è stato trovato.", path), "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return String.Empty
        End If
    End Function

Un altro problema di questo codice è che non riesce a mantenere maiuscuola la prima lettera della parola da censurare. Ovviamente il problema è aggirabile ma richiederebbe un overhead che annullerebbe ogni beneficio dell'utilizzo delle regex in termini di velocità.