[AIDE] Put FTP TextBox value.Résolu

Question

Bonjour à tous,
Sur la base du code ci-dessous.
J'envoie le contenu du fichier texte suivant:
!R! FRPO L2,76; FRPO L4,67; STAT1; EXIT;
J'aimerais que les valeurs envoyés FRPO L2 et FRPO L4 respectivement 76 et 67 soient saisies dans des TextBox
Pouvez-vous m'aider?
Bien cordialement

Const FTP_TRANSFER_TYPE_UNKNOWN = &H0Const FTP_TRANSFER_TYPE_ASCII = &H1Const FTP_TRANSFER_TYPE_BINARY = &H2'Const INTERNET_DEFAULT_FTP_PORT = 21               ' default for FTP serversConst INTERNET_SERVICE_FTP = 1Const INTERNET_FLAG_PASSIVE = &H8000000            ' used for FTP connectionsConst INTERNET_OPEN_TYPE_PRECONFIG = 0                    ' use registry configurationConst INTERNET_OPEN_TYPE_DIRECT = 1                        ' direct to netConst INTERNET_OPEN_TYPE_PROXY = 3                         ' via named proxyConst INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4   ' prevent using java/script/INSConst MAX_PATH = 260Private Type FILETIME    dwLowDateTime As Long    dwHighDateTime As LongEnd TypePrivate Type WIN32_FIND_DATA    dwFileAttributes As Long    ftCreationTime As FILETIME    ftLastAccessTime As FILETIME    ftLastWriteTime As FILETIME    nFileSizeHigh As Long    nFileSizeLow As Long    dwReserved0 As Long    dwReserved1 As Long    cFileName As String * MAX_PATH    cAlternate As String * 14End TypePrivate Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As IntegerPrivate Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As LongPrivate Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As LongPrivate Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As BooleanPrivate Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias "FtpGetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszCurrentDirectory As String, lpdwCurrentDirectory As Long) As LongPrivate Declare Function FtpCreateDirectory Lib "wininet.dll" Alias "FtpCreateDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As BooleanPrivate Declare Function FtpRemoveDirectory Lib "wininet.dll" Alias "FtpRemoveDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As BooleanPrivate Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, ByVal lpszFileName As String) As BooleanPrivate Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" (ByVal hFtpSession As Long, ByVal lpszExisting As String, ByVal lpszNew As String) As BooleanPrivate Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hConnect As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Long, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByRef dwContext As Long) As BooleanPrivate Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As BooleanPrivate Declare Function InternetGetLastResponseInfo Lib "wininet.dll" Alias "InternetGetLastResponseInfoA" (lpdwError As Long, ByVal lpszBuffer As String, lpdwBufferLength As Long) As BooleanPrivate Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As LongPrivate Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As LongConst PassiveConnection As Boolean = TruePrivate Sub cmd_exit_Click()EndEnd SubPrivate Sub cmd_send_Click()    Dim hConnection As Long, hOpen As Long, sOrgPath  As String    'open an internet connection    hOpen = InternetOpen("API-Guide sample program", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)    'connect to the FTP server    hConnection = InternetConnect(hOpen, txt_ftp.Text, INTERNET_DEFAULT_FTP_PORT, txt_login.Text, txt_pw.Text, INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)    'create a buffer to store the original directory    sOrgPath = String(MAX_PATH, 0)    'get the directory    FtpGetCurrentDirectory hConnection, sOrgPath, Len(sOrgPath)    'upload the file 'test.htm'    FtpPutFile hConnection, "" & App.Path & "\Onin42.txt", "Onin42.txt", FTP_TRANSFER_TYPE_UNKNOWN, 0    'close the internet connection    InternetCloseHandle hOpen    MsgBox ("Sucesful")End Sub

NeriXs · Answer

J'avais pensé enregister la valeur du TextBox dans le fichier texte comme ceci :

Private Sub cmdEnregistrer_Click() Dim texte texte = Text1.Text Open "C:\MonFichier.txt" For Output As #1 Print #1, texte Close #1 

puis le lire l'enregistrement

Private Sub cmdLireEnreg_Click() Dim crlf, tout, texte On Error Resume Next crlf = Chr(13) + Chr(10) Open "C:\MonFichier.txt" For Input As #1 Line Input #1, texte tout = texte If Len(tout) <> 0 Then While Not EOF(1) Line Input #1, texte tout = tout + crlf + texte Wend End If Text1.Text = tout Close #1 End Sub 

je ne sais pas comment placer mes valeurs au bonne endroit dans le fichier texte.

NeriXs · Answer

Avec mes 4 TextBox Ecriture des TextBox Private Sub cmdEnregistrer_Click() Dim L1, L2, L3, L4 L1 = L1.Text L2 = L2.Text L3 = L3.Text L4 = L4.Text Open "C:\MonFichier.txt" For Output As #1 Print #1, L1 Print #1, L2 Print #1, L3Print #1, L4Close #1 End Sub Puis lire l'enregistrement Private Sub cmdLireEnreg_Click() Dim crlf, Enreg_L1, Enreg_L2, Enreg_L3, Enreg_L4, L1,L2,L3,L4On Error Resume Next crlf = Chr(13) + Chr(10) Open "C:\MonFichier.txt" For Input As #1 Line Input #1,L1Line Input #1,L2 Line Input #1,L3 Line Input #1,L4Enreg_L1=L1Enreg_L2 =L2 Enreg_L3 =L3 Enreg_L4 =L4 If Len(tout) <> 0 Then While Not EOF(1) Line Input #1,L1Enreg_L1= Enreg_L1+ crlf +L1WendIf Len(Enreg_L2) <> 0 Then While Not EOF(1) Line Input #1,L2 Enreg_L2 = Enreg_L2 + crlf +L2 Wend If Len(Enreg_L3) <> 0 Then While Not EOF(1) Line Input #1,L3 Enreg_L3 = Enreg_L3 + crlf +L3 Wend If Len(Enreg_L4) <> 0 Then While Not EOF(1) Line Input #1,L4Enreg_L4 = Enreg_L4 + crlf +L4 Wend End If End If End If End If L1.Text = Enreg_L1L2.Text = Enreg_L2 L3.Text = Enreg_L3 L4.Text = Enreg_L4 Close #1 End Sub je ne voix toujours pas comment placer mes valeurs au bonne endroit. !R! FRPO L1,25; FRPO L2,76; FRPO L3,36; FRPO L4,67; STAT1; EXIT;

ucfoutu · Answer

Bonjour,
 Je dois te dire qu'entre ton premier message et les messages suivants, j'ai personnellement des difficultés à comprendre ce que tu cherches et veux dire.

NeriXs · Answer

Bonjour,
Je ne suis peut-être pas sur la bonne voie !
Je cherche à modifier une partie du contenu d'un fichier texte par des textbox avant d'envoyer ce fichier texte via FTP.
Il ne semble pas possible de le faire sans passer par un fichier texte.

vb95 · Answer

Bonjour 
Ceci implique-t-il le fait que ces 4 valeurs sont variables ? 
C'est-à-dire que tu peux très bien envoyer 45 et 98 et 54 et 36 comme valeurs comme envoyer 87 et 75 et 84 et 65 par exemple ! 

En supposant les 4 valeurs contenues dans Textbox1 à Textbox4 cela donnerait :

Open "C:\MonFichier.txt" For Output As #1 Dim chaine as stringchaine = "!R! FRPO L1," & Textbox1.textchaine = chaine & "; FRPO L2," & Textbox2.textchaine = chaine & "; FRPO L3," & Textbox3.textchaine = chaine & "; FRPO L4," & Textbox4.textchaine = chaine & "; STAT1; EXIT;"Print #1, chaine

NeriXs · Answer

Merci vb95 c'est exactement ce que je cherchais a faire :)

J'ai placé ton code dans un CommandButton et ajouté Close #1 a la fin pour fermer le fichier texte.

Private Sub Command1_Click()Open "C:\MonFichier.txt" For Output As #1Dim chaine As Stringchaine = "!R! FRPO L1," & Textbox1.Textchaine = chaine & "; FRPO L2," & Textbox2.Textchaine = chaine & "; FRPO L3," & Textbox3.Textchaine = chaine & "; FRPO L4," & Textbox4.Textchaine = chaine & "; STAT1; EXIT;"Print #1, chaineClose #1End Sub

Dans le Form_Load j'ai aussi ajouté l'ouverture et la fermeture du fichier texte pour le « vider » mais je pense qu'il y a une solution plus adéquate !!

Private Sub Form_Load()Open "C:\MonFichier.txt" For Output As #1Close #1End Sub

vb95 · Answer

Open "C:\MonFichier.txt" For Output As #1Close #1

J'avais oublié le Close #1
Inutile de mettre ces 2 lignes dans le Form_Load si tu l'as déjà mis dans le Command1_Click

Qu'entends-tu par "vider" le fichier ?

NeriXs · Answer

Pour être sur que le fichier texte soit vide quand je quite le programme.

vb95 · Answer

Salut Nerix 
Lorsque tu quittes le programme le fichier texte n'est pas vide ! Le Close #1 ne fait que fermer le canal de communication entre ton programme et le fichier texte lui-même !
Le mieux est d'effacer le fichier avec un 
Kill "C:\MonFichier.txt" 

De toute façon tu recrées le fichier avec le Open

NeriXs · Answer

Salut vb95 et merci :)

J'ai fait un petit oublie.
La "commande" STAT1 peut nécessiter d'être a 0 ou a 1.
 
J'ai tenté avec un ComboBox

Private Sub Form_Load()combo1.AddItem "0"combo1.AddItem "1"End Sub

private sub combo1_click()if combo1.listindex = 0 thenmsgbox "STAT0"elseif combo1.listindex = 1 thenmsgbox "STAT1"end if

comment intégrer la valeur dans la "chaine"?

ucfoutu · Answer

Bonjour,
ce qui ne serait donc finalement que :
Private Sub Combo1_Click() MsgBox "STAT" & Combo1.List(Combo1.ListIndex)End Sub
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

NeriXs · Answer

Bonjour,
Et donc:

chaine = chaine & "; STAT" & Combo1.List(Combo1.ListIndex)chaine = chaine & "; EXIT;"

vb95 · Answer

Private Sub Command1_Click()if Combo1.Listindex = -1 then msgbox "valeur STAT non précisée":Exit Subend ifOpen "C:\MonFichier.txt" For Output As #1Dim chaine As Stringchaine = "!R! FRPO L1," & Textbox1.Textchaine = chaine & "; FRPO L2," & Textbox2.Textchaine = chaine & "; FRPO L3," & Textbox3.Textchaine = chaine & "; FRPO L4," & Textbox4.Textchaine = chaine & "; STAT" & Combo1.List(Combo1.ListIndex)&";EXIT;"Print #1, chaineClose #1End Sub

Les 3 premières lignes évitent l'oubli de préciser une valeur pour STAT

NeriXs · Answer

Merci à vous deux pour ces retours :)

Auriez-vous une idée de comment gérer depuis un CheckBox le fait que un ou plusieurs TextBox soient grisés et verrouillés (peut-être avec les propriétés Enabled et BackColor?) mais, surtout que la ou les chaines correspondantes ne soient pas renseignées dans le fichier texte ?

vb95 · Answer

Il faut à mon avis vérifier que chaque Textbox contienne bien une valeur numérique. Si les 4 sont ok on crée le fichier sinon on informe l'utilisateur par un message d'erreur!

Mais là c'est un autre problème ! Si tu ne trouves pas ouvre une nouvelle discussion 
Bonne prog

ucfoutu · Answer

Comme le précise vb95, que je salue, il s'agit là d'une autre difficulté technique, n'ayant rien à voir avec celle qui a justifié l'ouverture de cette discussion.
Si la difficulté exposée à l'ouverture de la présente discussion est résolue, veux-tu bien, s'il te plait, libérer cette discussion par un clic sur le tag RESOLU au niveau de ton tout premier message ?
Merci de te conformer à cette règle.

NeriXs · Answer

Bonjour,

Effectivement je sors du sujet de base avec cette action sur les TextBox.
Je vais étudier cela et revenir vers vous si besoin.
Merci pour votre aide.

Bonne prog à tous

[AIDE] Put FTP TextBox value.

17 réponses

Votre réponse

Discussions similaires