CGSI3
Messages postés416Date d'inscriptionvendredi 22 février 2008StatutMembreDernière intervention 7 janvier 2018
-
5 févr. 2011 à 10:58
cs_Mathieu666
Messages postés3Date d'inscriptionjeudi 27 juillet 2006StatutMembreDernière intervention 5 juin 2012
-
5 juin 2012 à 13:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_Mathieu666
Messages postés3Date d'inscriptionjeudi 27 juillet 2006StatutMembreDernière intervention 5 juin 2012 5 juin 2012 à 13:36
Bonjour, j'ai réusi a écrire dans un fichier, voici ce que j'ai fait,
Private Sub openFile(ByVal sFile As String)
Try
Dim oSM As New OpenOffice.OServiceManager
Bureau = New OpenOffice.OBureau(oSM)
Dim oA As New OpenOffice.OCalcApplication(Bureau)
Classeur = New OpenOffice.OCalcClasseur(oA, sFile)
---> Feuille = New OpenOffice.OCalcSheet(Classeur, Classeur.getActiveSheet())
Catch ex As Exception
MessageBox.Show(ex.Message, "aïe aïe", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Feuille.getCell(0, 0).setstring("Interrupt Text")
Feuille.getCell(0, 1).setstring("Type")
Feuille.getCell(0, 2).setstring("Occurred")
Feuille.getCell(0, 3).setstring("Cleared")
Feuille.getCell(0, 4).setstring("ClearType")
Feuille.getCell(0, 5).setstring("Length")
Feuille.getCell(0, 6).setstring("Number of Recovers")
Feuille.getCell(0, 7).setstring("Number of Retries")
Feuille.getCell(0, 8).setstring("Number of Clears")
Feuille.getCell(0, 9).setstring("Note")
Feuille.getCell(0, 10).setstring("Exported")
Feuille.getCell(0, 11).setstring("Logical Machine ID")
Feuille.getCell(0, 12).setstring("Interrupt ID")
Dim y As Integer = 1
Dim f As Integer = 0
Dim myLines() As String = File.ReadAllLines(fichierScan(0))
For Each j As String In myLines
If Not (y = 1) Then
Dim aryTextFile() As String = j.Split(",")
Dim x As Integer = 0
For Each i As String In aryTextFile
Feuille.getCell(y, x).setString(i)
x += 1
Next
y += 1
End If
Next
End Sub
End Class
Mon Data que j'ai a transfairé est dans un fichier text et chaque valeur est séparées par des virgules,
J'ai plusieurs fichier, a traiter à mêtre dans un même claseur.
J'ai un petit intérogation, c'es lent pour le transposer le dada, je vois chaque valeur se mêtre dans les cellule, y a t'il moyen de rendre cela à vitesse grand V. Style ca prend 5 minutes pour copier environ 2000 lignes, de 10 valeurs.
Merci et bonne journée
cs_Mathieu666
Messages postés3Date d'inscriptionjeudi 27 juillet 2006StatutMembreDernière intervention 5 juin 2012 4 juin 2012 à 16:58
Merci beaucoup, pour ta source,
Mais j'aimerais bien savoir comme écrire dans une cellule et lire le contenue l'une d'entre elle.
Merci et bonne journée
Silmon
Messages postés85Date d'inscriptionmardi 6 janvier 2004StatutMembreDernière intervention 7 mai 2007 20 sept. 2011 à 15:35
merci
cs_eldim
Messages postés956Date d'inscriptionlundi 30 mai 2005StatutMembreDernière intervention21 août 20141 20 sept. 2011 à 14:19
Salut, Merci, non désolé j'ai pas encore cherché ce truc là
Silmon
Messages postés85Date d'inscriptionmardi 6 janvier 2004StatutMembreDernière intervention 7 mai 2007 20 sept. 2011 à 14:01
superbe ta source!
Dis moi sais tu comment capturer un event d'un document OPENOFFICE?
CGSI3
Messages postés416Date d'inscriptionvendredi 22 février 2008StatutMembreDernière intervention 7 janvier 20181 5 févr. 2011 à 10:58
Grand Merci ! pour l'édition de ce code Eldim,
Comme tu le dis, il est bien difficile de trouver du code vb.net sur Open Office.
Je n'arrive pas a l'ouvrir avec ma version Vb Net Express 2008 mais je peux sans pb
lire le code.
Bonne prog.
CGSI3
5 juin 2012 à 13:36
Private Sub openFile(ByVal sFile As String)
Try
Dim oSM As New OpenOffice.OServiceManager
Bureau = New OpenOffice.OBureau(oSM)
Dim oA As New OpenOffice.OCalcApplication(Bureau)
Classeur = New OpenOffice.OCalcClasseur(oA, sFile)
---> Feuille = New OpenOffice.OCalcSheet(Classeur, Classeur.getActiveSheet())
Catch ex As Exception
MessageBox.Show(ex.Message, "aïe aïe", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Feuille.getCell(0, 0).setstring("Interrupt Text")
Feuille.getCell(0, 1).setstring("Type")
Feuille.getCell(0, 2).setstring("Occurred")
Feuille.getCell(0, 3).setstring("Cleared")
Feuille.getCell(0, 4).setstring("ClearType")
Feuille.getCell(0, 5).setstring("Length")
Feuille.getCell(0, 6).setstring("Number of Recovers")
Feuille.getCell(0, 7).setstring("Number of Retries")
Feuille.getCell(0, 8).setstring("Number of Clears")
Feuille.getCell(0, 9).setstring("Note")
Feuille.getCell(0, 10).setstring("Exported")
Feuille.getCell(0, 11).setstring("Logical Machine ID")
Feuille.getCell(0, 12).setstring("Interrupt ID")
Dim y As Integer = 1
Dim f As Integer = 0
Dim myLines() As String = File.ReadAllLines(fichierScan(0))
For Each j As String In myLines
If Not (y = 1) Then
Dim aryTextFile() As String = j.Split(",")
Dim x As Integer = 0
For Each i As String In aryTextFile
Feuille.getCell(y, x).setString(i)
x += 1
Next
y += 1
End If
Next
End Sub
End Class
Mon Data que j'ai a transfairé est dans un fichier text et chaque valeur est séparées par des virgules,
J'ai plusieurs fichier, a traiter à mêtre dans un même claseur.
J'ai un petit intérogation, c'es lent pour le transposer le dada, je vois chaque valeur se mêtre dans les cellule, y a t'il moyen de rendre cela à vitesse grand V. Style ca prend 5 minutes pour copier environ 2000 lignes, de 10 valeurs.
Merci et bonne journée
4 juin 2012 à 16:58
Mais j'aimerais bien savoir comme écrire dans une cellule et lire le contenue l'une d'entre elle.
Merci et bonne journée
20 sept. 2011 à 15:35
20 sept. 2011 à 14:19
20 sept. 2011 à 14:01
Dis moi sais tu comment capturer un event d'un document OPENOFFICE?
5 févr. 2011 à 10:58
Comme tu le dis, il est bien difficile de trouver du code vb.net sur Open Office.
Je n'arrive pas a l'ouvrir avec ma version Vb Net Express 2008 mais je peux sans pb
lire le code.
Bonne prog.
CGSI3