checke streng

Noget i den her stil.

If Not strProjectPath = \"\\\\\" Or strProjectPath = \":\\\" Then
  strProjectPath = GetMyDocuments & \"\\\" & strProjectPath
End If

If InStr(strProjectPath, \"\\\\\") > 0 Or InStr(strProjectPath, \":\\\") > 0 Then
  strProjectPath = GetMyDocuments & \"\\\" & strProjectPath
End If

Der vil altså blive returneret true hvis \\\\ :\\ findes

pr default skrives der projekt i registry, med man kan selv gå ind og skrive en fuld sti, hvis man gør det skal man ikke tilføje stien.

If (InStr(myStr, \":\\\")) Or (InStr(myStr, \"\\\\\")) Then MsgBox \"Found \"

No need to test > 0

toni01:> InStr() returnerer positionen af det første tegn i den anden streng (dvs. InStr(\"Thomas Daugaard\", \"Daug\") vil returnerer postitionen af D)

terry:> JO! (InStr() > 0) vil evaluere til True hvis den ER større en 0 men True = -1.

der skal vel stadi et not ind, sådan at ifen kun udføres hvis strengen ikke indeholder \\\\ :\\

toni01:> nej, for hvis InStr() = 0 så er der ikke f.eks. \"\\\\\" i, men hvis den er større en 0 så er der.

Det jeg gerne vil er hvis strengen indeholder er sti lokalt eller på et fælles drev skal den bibeholdes, eller skal man selv tilføje stien til strengen.

jeg kan ikke få det til at virke

If InStr(strProjectPath, \"\\\\\") > 0 Or InStr(strProjectPath, \":\\\") > 0 Then
  strProjectPath = GetMyDocuments & \"\\\" & strProjectPath
End If

strProjectPath = GetMyDocuments & \"\\\" & strProjectPath udføres selv om strengen indeholder D:\\hgnbv\\fgj

Nåå .. jeg havde overset der IKKE var noget NOT efter OR

If InStr(strProjectPath, \"\\\\\") > 0 And InStr(strProjectPath, \":\\\") = 0 Then
  strProjectPath = GetMyDocuments & \"\\\" & strProjectPath
End If

der skal stå not begge steder, men if\'en udføres stadigvæk hvistrengen indeholder :\\

eks d:\\test bliver til
d:\\testd:\\projectpath

tdaugaard
I am aware that True = -1 but as I can only get
0, Null, Start or Position as results, and as = and Null will give False then everything else gives True. True?

and as 0 and Null will give False

terry:> To maintain compatability for future development environments it is neccessary to have everything evaluated to either True or False in an If-line as the internal value of True might change in the future and therefore fx. 4 will not evaluate to True but to False instead.

I read an article about people defining True as -1 and False as 0, but that should not be done, instead True IS True and False IS false. It is not recommended to define them as a value.

So, bottom line is that InStr(string, string) is NOT recommended to use as an If-expression, instead use (InStr(string, string) > 0) or = 0.

det her virker

If Not ((InStr(1, strProjectPath, \":\\\") > 0) Or (InStr(1, strProjectPath, \"\\\\\") > 0)) Then
        strProjectPath = GetMyDocuments & \"\\\" & strProjectPath
    End If

Tak for hjælpen

The If (InStr(myStr, \":\\\")) statement will always evaluate to either true or false (boolean 0 and -1) no matter what the Instr returns.

And whats the chances of them changing the internal value of true? Its been that way since I start ...