elricfries
Goto Top

VBScript - Wenn Bedingung erfüllt ist den Text farbig färben

Hallo Leute,

ich weiß nicht, ob dieser Bereich richtig ist, aber ich bin davon ausgegangen face-smile

Mein Problem ist dieses, ich bin soweit neu beim VB Script, aber habe C# und VBA schon ein wenig programmiert.

Nun habe ich angefangen zu Scripten, aber muss nun einen Text farbig machen, wenn eine bestimmte Bedingung erfüllt ist.

Ich brauche nur den "Befehl" um zu färben.

Nehmen wir an:

If wochentag(2) = mittwoch then
document.write("Ja"& "<br>")
Else
document.write("Nein"& "<br>")
End If

Wie mache ich das "Ja" rot, wenns zutrifft?

Im Internet finde ich nichts was mir weiter helfen kann..

Danke und Freundliche Grüße,

Elric

Content-Key: 208748

Url: https://administrator.de/contentid/208748

Printed on: April 16, 2024 at 22:04 o'clock

Member: colinardo
colinardo Jun 27, 2013 updated at 09:31:21 (UTC)
Goto Top
Hallo Elric,
denke dein Zieldokument ist HTML, dann geht das so:
Document.write ('<span style="color:red>Ja</span><br />')  

Grüße Uwe
Member: ElricFries
ElricFries Jun 27, 2013 updated at 09:41:52 (UTC)
Goto Top
nun stellt sich mir die Frage, wie ich auf die ausgegebene Zahl kommen soll face-sad

<!DOCTYPE html>
<html>
<body>

<script type="text/vbscript">


dim wochentag(6)
dim zahl

wochentag(0) ="montag"
wochentag(1) ="dienstag"
wochentag(2) ="mittwoch"
wochentag(3) ="donnerstag"
wochentag(4) ="freitag"
wochentag(5) ="samstag"
wochentag(6) ="sonntag"

For zahl = 0 to 10
If zahl mod 2 then
document.write("<span style=color:red></span><br>")
for i = 0 to 6
document.write("Es ist heute: "& wochentag(i) &"<br>")
Next
else document.write("Ungültig" & "<br>")
end if
Next


</script>
</body>
</html>


Mir soll nun die zahl in rot angezeigt werden, aber wenn ich da nur "zahl" eingebe, kommt nur "zahl" in rot face-sad
Member: colinardo
colinardo Jun 27, 2013 at 09:49:23 (UTC)
Goto Top
meinst du das so ?
document.write("<span style=color:red>" & zahl & "</span><br>")  
Übrigens, es gibt in VBA ein Objekt mit dem Namen Date mit dem man den Wochentag abfragen kann!
Member: ElricFries
ElricFries Jun 27, 2013 at 09:50:46 (UTC)
Goto Top
Das meinte ich danke face-smile
Ja davon wusste ich, dass hier grad, war nurn kleiner Anfang im Skripten face-smile Mit dem Date Objekt setz ich mich gleich auseinander face-smile
Member: colinardo
colinardo Jun 27, 2013 updated at 13:18:12 (UTC)
Goto Top
Zum reagieren auf die unterschiedlichen Wochentage kann folgender Code verwendet werden:
wd = Weekday(Date)
Select Case wd
	Case vbMonday
		'Montag  
	Case vbTuesday
		'Dienstag  
	Case vbWednesday
		'Mittwoch  
	Case vbThursday
		'Donnerstag  
	Case vbFriday
		'Freitag  
	Case vbSaturday
		'Samstag  
	Case vbSunday
		'Sonntag  
End Select
Member: bastla
bastla Jun 27, 2013 updated at 18:16:08 (UTC)
Goto Top
... wobei es ja ggf auch noch die Funktion WeekdayName() gäbe ...

Grüße
bastla