Accueil > Forum > > > > "Open n'est pas déclaré"
 "Open n'est pas déclaré"
vendredi 23 janvier 2009 à 18:01:12 |
"Open n'est pas déclaré"
natinusala
|
Bonjour, J'aimerai savoir comment écrire un fichier .txt, à savoir : Supprimer les lignes 1,2,3 Editer les lignes 1,2,3 Mais le problême, c'est qu'il me met "Open is not declared. File I/O functionnality is avaible in the "Microsoft.VisualBasic" namespace" J'utilise Microsoft Visual Basic 2008 Express edition S'il vout plaît, c'est urgent ! |
|
vendredi 23 janvier 2009 à 18:43:29 |
Re : "Open n'est pas déclaré"
fauve
|
Réponse acceptée !
Salut,
Pour écrire dans un fichier :
' Instanciation et déclaration d'une variable
' pour écrire dans un fichier
Dim SW As New IO.StreamWriter("D:\monfichier.txt")
' Ecrit dans le fichier : Bienvenue sur
SW.WriteLine("Bienvenue sur")
' Ecrit à la ligne suivante : http://www.codes-sources.com/
SW.WriteLine("http://www.codes-sources.com/")
' On ferme le fichier
SW.Close()
Pour lire ce même fichier
' Instanciation et déclaration d'une variable
' pour lire le contenu du fichier
Dim SR As New IO.StreamReader("D:\monfichier.txt")
' Boucle parcourant toutes les lignes du
' fichier
Do Until SR.Peek = -1
' SR.ReadLine() retourne le contenu d'une
' ligne
' au prochain SR.ReadLine(), on récupèrera
' la ligne suivante
MsgBox(SR.ReadLine())
' Dans cet exemple, on affichera : Bienvenue sur
' puis : http://www.codes-sources.com/
Loop
' On ferme le fichier
SR.Close()
++
Fauve
Pensez : Réponse Acceptée 
|
|
vendredi 23 janvier 2009 à 19:03:31 |
Re : "Open n'est pas déclaré"
|
vendredi 23 janvier 2009 à 19:53:27 |
Re : "Open n'est pas déclaré"
fauve
|
N'oublies pas de cliquer sur le bouton Réponse Acceptée
++
Fauve
Pensez : Réponse Acceptée
|
|
lundi 26 janvier 2009 à 18:33:50 |
Re : "Open n'est pas déclaré"
natinusala
|
Merci beaucoup (encore) mais j'aimerai que quand je clique sur Button1 il affiche le contenu de TextBox1.Text dans le RichTextBox1, et quand je clique sur le button2, il enregistre le contenu du RichTextBox1 dans le fichier TextBox1.Text (en remplacant tout évidemment)
|
|
lundi 26 janvier 2009 à 18:43:50 |
Re : "Open n'est pas déclaré"
fauve
|
Réponse acceptée !
Salut,
Il faut alors adapter la façon de lire le fichier. Voici une fonction dont tu envois le chemin d'accès complet du fichier à lire en paramètre et il te retourne la totalité du contenu du fichier.
Public Function LireFichier(ByVal FileName As String) As String
Dim SR As New IO.StreamReader(FileName)
Return SR.ReadToEnd()
SR.Close()
End Function
Syntaxe :
TextBox1.Text = LireFichier("D:\test.txt")
RichTextBox1.Text = LireFichier("D:\test.txt")
++
Fauve
Pensez : Réponse Acceptée
|
|
lundi 26 janvier 2009 à 19:46:22 |
Re : "Open n'est pas déclaré"
natinusala
|
Fort bien, fort bien, mais pour enregistrer, en sachant que le .txt est utilisé dans un autre processus ?
|
|
lundi 26 janvier 2009 à 21:46:37 |
Re : "Open n'est pas déclaré"
fauve
|
Réponse acceptée !
Si tu souhaites enregistrer ça ne pose aucun problème car juste avant la fin de la fonction, je fais SR.Close() donc le fichier n'est plus utilisé.
Ensuite pour écrire le contenu de la TextBox ou RichTextBox :
Public Function EcrireFichier(ByVal FileName As String, ByVal Texte As String, Optional ByRef MsgErreur As String = "") As Boolean
' Try Permet d'intercepter tout erreur qui se produirait
' pendant l'exécution du programme pour le code se trouvant
' entre Try et Catch ex As Exception
Try
' Ouvre ou crée le fichier pour enregistrer
Dim SW As New IO.StreamWriter(FileName)
' Ecrit le contenu de la variable dans le fichier
SW.WriteLine(Texte)
' On ferme le fichier
SW.Close()
' On retourne True car l'enregistrement
' s'est bien passé
Return True
' Si une erreur vient à se produire par exemple,
' Le fichier est cours d'utilisation par un autre
' processus
Catch ex As Exception
' On stocke le message de l'erreur dans la variable
' MsgErreur ce qui permet de pouvoir connaitre la
' raison de l'erreur
MsgErreur = ex.Message
' On retourne False car l'enregistrement ne s'est
' pas bien passé
Return False
End Try
End Function
Syntaxe :
EcrireFichier("D:\test.txt", TextBox1.Text, MessageErreur)
EcrireFichier("D:\test.txt", RichTextBox1.Text, MessageErreur)
Retourne True ou False cela dépend si l'enregistrement c'est bien passé.
Si la fonction EcrireFichier retourne False , tu peux utiliser la variable MessageErreur de type String pour savoir quelle erreur a été rencontré.
++
Fauve
Pensez : Réponse Acceptée
|
|
lundi 26 janvier 2009 à 22:32:48 |
Re : "Open n'est pas déclaré"
natinusala
|
Merci! Et, enfin, comment faire ça sous le logiciel que j'utilise ? |
|
lundi 26 janvier 2009 à 22:35:29 |
Re : "Open n'est pas déclaré"
fauve
|
Je voudrais savoir tu programmes bien en VB.NET ? car sur le lien ci-dessus, tu parles de VBA.
Pensez : Réponse Acceptée |
|
Cette discussion est classée dans : lignes, microsoft, déclaré, is, open
 Répondre à ce message
 Sujets en rapport avec ce message
VB et l'Open Source, may be or not ? [ par VBsat62fr ]
Bonsoir ou Bonjour, Une idée me trotte dans la tête depuis un moment. Oui je sais je ne ferai pas que des adeptes avec l'énoncé du sujet, discussion
"open n'est pas déclaré" [ par rudyrudyrudyrudy ]
Salut,Je ne trouve aucune doc sur le web concernant : "open n'est pas déclaré"voici mon code: Dim a As Integer a = FreeFile Open Fichier For
"open n'est pas déclaré" dans vb 2005 express [ par rudyrudyrudyrudy ]
Salut,Je ne trouve aucune doc sur le web concernant : "open n'est pas déclaré"voici mon code:Public Function OuvrirTextRapide(ByVal Fichier As String)
Groupage de lignes sous Excel seloln condition [ par Stef864 ]
STEF 864 Bonjour, Je cherche une solution pour pouvoir utiliser la fonction " Rows.Group " ( " données grouper sous Excel " ) selon une condition ,
Modification de ThisWorkbook a partir d'un userform?comment? [ par louvierseb ]
Bonjour a tous,jai dans mon ThisWorkbook dun fichier interface.xls un appel a dautres fichiers comme il suit;Private Sub Workbook_Open()Application.Wi
Ajouter une référence à plusieurs versions d'Excel [ par radcur ]
Bonjour,je développe un logiciel en VB2005 qui doit lire des colonnes dans Excel et les traiter.Le problème s'il en est un c'est que sur le marché, Ex
Comment faire appel a des fichiers du meme dossier?urgent merci [ par louvierseb ]
bonjour voici mon codePrivate Sub Workbook_Open()Application.WindowState = xlMinimizedWorkbooks.Open ("d:\data\286874870\Desktop\Stagiaire\ThomsonOne\
Simple requête de suppresion de ligne dans une BDD [ par freepopo ]
Bonjour, Je reprend une partie d'un programme VB6 qui a la base ajoute des lignes dans une BDD access toute simple.Suite a des soucis de redondances d
probleme avec la base de donnees sql [ par kand_med ]
bonjour. j'ai essayer de faire une petite application pour l'ajout des enregisrements dns une base de donnees sql server 2005 express edition il m'a
déplacer des lignes entre 2 tables access (sous sql, vb) [ par bellamouna ]
Bonjour, Je veux créer dans un formulaire dans ma base de données qui serai capable d'échanger des lignes entre 2 tables en cliquant sur bouton qui
 Livres en rapport
|
Derniers Blogs
 [SHAREPOINT] NOUVELLE PRéSENTATION POUR LA DOCUMENTATION SHAREPOINT SUR TECHNET.[SHAREPOINT] NOUVELLE PRéSENTATION POUR LA DOCUMENTATION SHAREPOINT SUR TECHNET. par Patrick Guimonet
Vous l'avez peut-être déjà remarqué ? La documentation SharePoint a subit un cure de "relooking" et prend un style inspiré de Metro, donc plus sobre, plus pur, plus clair ! C'est sur fond blanc et ca ressemble à ça : Globaleme...
Cliquez pour lire la suite de l'article par Patrick Guimonet ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Forum
 FEUILLE EXCELFEUILLE EXCEL par samanta26
Cliquez pour lire la suite par samanta26
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|