Sujet Précédent Sujet Suivant

Transfert de données sous forme de taleau depuis une page Web

cs_jgr Messages postés 2 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 26 décembre 2002 - 26 déc. 2002 à 03:59
cs_jgr Messages postés 2 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 26 décembre 2002 - 26 déc. 2002 à 04:00

j'utilise se code pour extraire les données pacées sous forme de tableau ds une page Web Jeffectue un copie coller vers un richtextbox tout và très bien avec Windows 2000 mais sous Xp le caratere de tabulation CHR(9) n'apparait pas. Que faire ?

Sub extraire
If Mid(RitchPerso1.Text, x, 1) = Chr(10) Then

ligne = ligne + 1
If prn <> "" Then prnt
ElseIf Mid(RitchPerso1.Text, x, 1) = Chr(9) Then
colone = colone + 1
If prn <> "" Then prnt
ElseIf Mid(RitchPerso1.Text, x, 1) = Chr(13) Then
colone = 0
If prn <> "" Then prnt
Else
prn = prn & Mid(RitchPerso1.Text, x, 1)
End If
Next x

End Sub

Sub prnt()
If prn <> spc1 Then If colone 0 Then colone 1
XlSheet.Cells(ligne, colone) = prn
End If
prn = ""
End Sub

Merci A tous

<s>JGR</s>

A voir également:

Transfert de données sous forme de taleau depuis une page Web
Base de données javascript - Conseils pratiques -Javascript
Récupérer données json (javascript) - Conseils pratiques -Javascript
Exemple de page d'authentification - Conseils pratiques -PHP
Exemple de page d'accueil html et css ✓ - Forum Graphisme/design
Modele de site web - Conseils pratiques -PHP

1 réponse

Réponse 1 / 1

cs_jgr Messages postés 2 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 26 décembre 2002
26 déc. 2002 à 04:00