Discussion :

[christel1982]

Bonjour,

je n'arrive pas à tester si une variable est vide ou pas.
J'ai essaye isNull mais cela ne fonctionne pas:

specialite=rsFor("spe_code")
if specialite isNull then
specialite="valeur"
end if

J'ai également essaye
=0
=""
=" "

Une erreur de syntaxe?

Merci
Christel

[agrotic]

j'ai une fonction qui fait ça très bien et qui met une valeur par défaut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
function default_value(pChaine, pValue)
	if pChaine = "" or isnull(pChaine) then
		default_value = pValue
	else
		default_value = pChaine
	end if
end function

[christel1982]

J'ai essaye et ca marche tres bien quand pValue est égal à quelque chose.
Mais en fait moi je veux que ma variable soit égale à 6 espaces.

En fait je recupere ma valeur : specialite=rsFor("spe_code")
si c'est NULL dans la base de données je veux que specialite=" "
mais je n'arrive pas à remplir ma variable de 6 espaces...

[agrotic]

ça ne fait pas ce que tu veux, ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

specialite = default_value(rsFor("spe_code"), "      ")

ça devrait ...

[christel1982]

specialite=rsFor("spe_code")
response.write default_value(specialite, " ")
response.write "-" & specialite & "-<br>"

Résultat:
--
--
--
--

(4 occurrences NULL)

[agrotic]

si tu ne demandes pas à remplacer 'specialite' par ce que renvoit la fonction default_value, c'est normal, non ?

[christel1982]

effectivement lol

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
specialite=rsFor("spe_code")
specialite = default_value(specialite, "      ")
response.write can_num & "-" & specialite & "-<br>"

Me donne:

- -
- -
- -
- -

soit un seul espace !

[agrotic]

dans ton code, je ne vois qu'un seul espace au niveau du default_value

donc, le résultat ne me parait pas abhérrant

[christel1982]

oui c'est le forum qui me les a enlevés, voir plus haut j'ai mis les balises codes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
specialite=rsFor("spe_code")
specialite = default_value(specialite, "      ")
response.write can_num & "-" & specialite & "-<br>"

[agrotic]

dans ce cas, je te dirai que certains navigateurs font un peu n'importe quoi avec les séries d'espace... préfère un autre caractère pour tester (ou un len(specialite))

[christel1982]

en fait le but c'est d'ecrire dans un fichier des informations avec des espaces si jamais les données sont null.
je vais chercher une solution. si je trouve je la mets sur le site

[Gwenn]

Salut

j'utilise cete fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
'Retourne la valeur de strDefault dans le cas ou valeur est nulle
Function fDefaultValue(byval strValue,byval strDefault)
	If len(strValue) = 0 or IsNull(strValue) then
		fDefaultValue= strDefault
	Else
		fDefaultValue= strValue
	End If
End Function

[Immobilis]

Tu pourrais faire des tests sur le contenu du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
on error resume next
Select case rsFor("spe_code")
    case isnull
        response.write("is null")
    case ""
        response.write("Rien")
    case 0
        response.write("egal 0")
    case isEmpty
        response.write("Vide")
    case else
        response.write("Else")
End select

Ca te permettrait d'y voir plus clair.

PS: je ne sais plus si c'est isnull ou is null et isempty ou is empty qui marche pour ces tests. Ou peut-être:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Select case isnull(rsFor("spe_code"))
  case true
  case false
  case else
end select

A+

[christel1982]

Le test marche à présent. LE problème est le remplissage de la variable par 6 espaces
specialite=" "
ca ne me prend qu'un espace ...

J'ai également essaye:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
                     if len(specialite)<6 then
				nb_blanc=6-len(specialite)
				i=0
				'response.write nb_blanc
				DO WHILE (i<nb_blanc)
					specialite=  specialite& " " 
					i=i+1
				Loop
			end if