Discussion :

[zdig10]

Bonjour tout le monde,
je compte beaucoup sur vos suggestions car dans ce forum (dans développez.net) j'ai presque résolu tous mes problèmes.
cette fois j'ai deux petits obstacles:
Après avoir comprendre comment faire un site multilingue je suis rendu compte devant un hypothèse: Si après avoir générer les fichiers ressources locales .resx ,j'ai ajouté un autre contrôle(label, Textbox Linkbutton ...) j'ai admis que ces nouveaux contrôles ne seront pas obligatoirement chargés dans le fichier .resx donc pour les charger il faut supprimer le fichier .resx puis régénérer une autre fois depuis le fichier aspx afin que la régénération recharge les nouveaux contrôle et puisque mon application contient plus que 100 page aspx et de même nombre des états de sortie ça sera pénible le jour ou je décide de faire une maintenance alors j'ai réfléchit en deux solution mais j'arrive pas encore à les réaliser voici mes deux solutions que j'ai pas encore réalisées:
* la première consiste à créer un fichier Excel contenant tous les contrôles et chaque fois que j'ajoute un nouveau contrôle je l'ajoute a ce fichier puis je fais une importation vers le fichier .resx puisqu'il s'agit d'un fichier XML mais je sais pas comment faire cette importation .
* la deuxième consiste a coder une fonction pour que à chaque fois j'ajoute un contrôle et lors d'un événement (compilation débogage ..) le fichier .resx sera mis a jour automatiquement en faisant appel a cette méthode mais comme la première j'arrive pas a le faire
donc S.V.P si quelqu'un a utilisé l'une de ces deux solutions citées veuillez m'expliquer le fonctionnement.
Si quelqu'un ait une autre solution je suis prêt a l'adopter si elle est réalisable.
Merci mes amis.

[zdig10]

Voici une solution pour mon problème mais y-a-t-il quelqu'un qui sache pourquoi le fichier généré ne contient rien (comme il s'agit d'un fichier binaire). voici ce que j'ai adoptée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Public Shared Sub lireexcel()
 
        Dim oXL As Microsoft.Office.Interop.Excel.Application
        Dim oBook As Microsoft.Office.Interop.Excel.Workbook
        Dim numFields As Integer
        Dim numRows As Integer
        Dim curRow As Integer
 
        oXL = New Microsoft.Office.Interop.Excel.Application
        oBook = oXL.Workbooks.Open("c:\fichier.xls")
        oXL.Visible = False
         While Not (oBook.ActiveSheet.Cells(numRows + 1, 1).value Is Nothing)
            numRows = numRows + 1
        End While
 
        Dim LineIn As String = ""
        Dim LineIn2 As String = ""
        For curRow = 1 To numRows
            LineIn = LineIn & oBook.ActiveSheet.Cells(curRow, 1).Value
            LineIn2 = LineIn2 & oBook.ActiveSheet.Cells(curRow, 2).Value
            Dim rw As ResourceWriter
            rw = New ResourceWriter("c:\test.resx")
            rw.AddResource(LineIn, LineIn2)
            rw.Generate()
            rw.Close()
            LineIn = ""
            LineIn2 = ""
        Next curRow
 
        oBook.Close()
        oXL = Nothing
    End Sub

A l'ouverture de la page voici ce que je trouve:

ÎÊï¾
‘ lSystem.Resources.ResourceReader, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089#System.Resources.RuntimeResourceSet
PADPADP¡‹:³ Ï S k a n d e r
5

Avez vous des idées sur ce problème sachant que S k a n d e r est la dernière valeur de la première colonne dans le fichier excel est 5 est la dernière valeur de la deuxième colonne du fichier excel qui contient seulement deux colonnes.
merci

[zdig10]

est ce qu'il y a quelqu'un qui peut m'expliquer ces trois procédures

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Public Shared Sub WriteEnglishResources()
        Dim rw As New ResourceWriter("en.resources")
        rw.AddResource("Greeting", "Hello")
        rw.Generate()
        rw.Close()
    End Sub
    Public Shared Sub WriteSpanishResources()
        Dim rw As New ResourceWriter("Span.resources")
        rw.AddResource("Greeting", "Hola")
        rw.Generate()
        rw.Close()
    End Sub
    Public Shared Sub WriteFrenchResources()
        Dim rw As New ResourceWriter("fr.resources")
        rw.AddResource("Greeting", "Bonjour")
        rw.Generate()
        rw.Close()
    End Sub