Programme en visual Basic "commandes de suppression"

fatilovich Messages postés 3 Date d'inscription lundi 25 juillet 2005 Statut Membre Dernière intervention 1 août 2005 - 29 juil. 2005 à 17:57
fatilovich Messages postés 3 Date d'inscription lundi 25 juillet 2005 Statut Membre Dernière intervention 1 août 2005 - 1 août 2005 à 16:16
H.imane
Salut,
SVP aider moi à résoudre mon probléme au niveau du programmation VB car je suis encore débutante.
Bon le probléme est comme suit :
j'ai un fichier qui contient des données à séparer mois, jour, heure....
car ces données viennent sur la même ligne et elle dois etre séparé pour les charger dans la base de donnée que j'ai préparé
j'ai commencé comme suit
'Mois
tr = InStr(1, s, " ")
Jour = Left(s, tr - 1)
s = Right((s), Len(s) - tr)
aprés ça je dois faire la meme chose pour le jour
mais le probléme c que avant de prendre le jour il y a un autre espace que je dois supprimer qu'est ce q je fais sur s qui est déclaré string ? j'ai essayé RTrim c urgent aider moi svp merci d'avance pour votre intéret

6 réponses

Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
29 juil. 2005 à 18:22
ou il ton espace en trop ?

s'il est devant ton Instr(1,s," ") va pas marcher

faudrait metrre 2 à la place de 1

et utiliser Mid au lieu de left


Daniel
0
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 131
29 juil. 2005 à 18:36
Il vaux mieux utiliser la fonction split dans ton cas : si le jour est
séparé du mois et de l'année par un espace, un split sur la date te
permet de récupèrer dans un tableau les champs que tu veux :



Dim sDate() As String



sDate = Split(s, " ")





Avec ce code, sDate(0) contient le jour, sDate(1) contient le mois et sDate(2) contient l'année

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
0
cs_hassen Messages postés 338 Date d'inscription mardi 28 janvier 2003 Statut Membre Dernière intervention 4 novembre 2008
29 juil. 2005 à 18:46
bonjour,
tu fera mieux d'utiliser la fonction Split elle est nettement plus facile

Dim c() As String


Text1.Text = "1 2 3"


c = Split(Text1.Text, " ")


'Resultat
'c(0)=1
'c(1)=2
'c(2)=3

Hassen TUNISIE
0
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
29 juil. 2005 à 18:50
c'est vrai que Split() est plus simple.

je te donne l'exemple avec instr






Private Sub Command1_Click()

Dim s As String

Dim i As Integer

Dim j As Integer

Dim strjour As String

Dim jour As Integer

Dim strmois As String

Dim année As Integer



s = Format(Now, "dddddd")



i = InStr(1, s, " ")

strjour = Left$(s, i - 1)



j = i + 1

i = InStr(j, s, " ")

jour = Mid$(s, j, i - j)



j = i + 1

i = InStr(j, s, " ")

strmois = Mid$(s, j, i - j)



j = i + 1

année = Mid$(s, j)

End Sub




Daniel
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
fatilovich Messages postés 3 Date d'inscription lundi 25 juillet 2005 Statut Membre Dernière intervention 1 août 2005
1 août 2005 à 16:05
H.imane
Merci infiniment pour vos suggestions
ça marche mnt, j'ai pu supprimer l'espace avec la commande Mid comme vous m'avez dis
0
fatilovich Messages postés 3 Date d'inscription lundi 25 juillet 2005 Statut Membre Dernière intervention 1 août 2005
1 août 2005 à 16:16
H.imane
SVP aider moi à créer une interface avec des requetes avec VB
si c possible des sites qui montre comment faire clairement

Une autre chose mnt j'ai pu écrire un petit programme en VB
qui ouvre un fichier log et sépare ses données en envoyant chaque
enregistrement vers le champ correspondant en Access mais qu'est
ce qu'il faut changer dans le code pour l'ouvrir avec sql serveur et


qu'est ce qu'il faut activer au niveau de référence dans visual basic????


Merci
0