Pk est-ce que j'obtiens un code d'erreur
Résolu
nick_2428
Messages postés
31
Date d'inscription
Statut
Membre
Dernière intervention
-
nick_2428 Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
nick_2428 Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J,ai un code qui est monté à partir d'un autre qui marche parfaitement. La seule chose qui change est la position de la chaine à couper par la fonction split (4e position dans celui-ci et 3e dans l,autre code, de la même ligne). Dans mon autre code tout marche parfaitement et dans celui si, j'obtiens un code d'erreur (800A000D) (type incompatible: 'var4')en lien avec la ligne souligné. Quelqu'un peut m'éclairer?
strSourceFile = "C:\...txt"
strResultat = "C:\...txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.openTextFile(strSourceFile, 1,true)
Set objResultat = objFSO.openTextFile(strResultat, 8,true)
dim MyArray (20)
x=0
objResultat.writeline "<table ALIGN=CENTER><tr><td><big><b><span><font size=7> ADDRESSES </FONT></span><br><br></td></tr></table>"
Do until objTextFile.AtEndOfStream
MyArray (x) = objTextFile.ReadLine
If x = 19 Then
Var4=split(Myarray(5), " ")(4)
If Var4 = 1 Then
objResultat.writeline "<table border=1 ALIGN=CENTER valign=middle cellspacing=0 cellpadding=0><tr><td align=left width=300><span><font size=5>"&MyArray(13)&"</font></span></td></tr></table>"
End If
x=0
Else
x=x+1
End If
Loop
objTextFile.close
objResultat.close
wscript.quit
J,ai un code qui est monté à partir d'un autre qui marche parfaitement. La seule chose qui change est la position de la chaine à couper par la fonction split (4e position dans celui-ci et 3e dans l,autre code, de la même ligne). Dans mon autre code tout marche parfaitement et dans celui si, j'obtiens un code d'erreur (800A000D) (type incompatible: 'var4')en lien avec la ligne souligné. Quelqu'un peut m'éclairer?
strSourceFile = "C:\...txt"
strResultat = "C:\...txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.openTextFile(strSourceFile, 1,true)
Set objResultat = objFSO.openTextFile(strResultat, 8,true)
dim MyArray (20)
x=0
objResultat.writeline "<table ALIGN=CENTER><tr><td><big><b><span><font size=7> ADDRESSES </FONT></span><br><br></td></tr></table>"
Do until objTextFile.AtEndOfStream
MyArray (x) = objTextFile.ReadLine
If x = 19 Then
Var4=split(Myarray(5), " ")(4)
If Var4 = 1 Then
objResultat.writeline "<table border=1 ALIGN=CENTER valign=middle cellspacing=0 cellpadding=0><tr><td align=left width=300><span><font size=5>"&MyArray(13)&"</font></span></td></tr></table>"
End If
x=0
Else
x=x+1
End If
Loop
objTextFile.close
objResultat.close
wscript.quit
A voir également:
- Pk est-ce que j'obtiens un code d'erreur
- Code ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
