HTA (Html-Application) VBScript Lesen Textdatei Zeile und einer Farbgebung, die Linie nur

Ich habe auf einer Chat-HTA-Datei zu spielen mit bei der Arbeit...

🙂

Es funktioniert ziemlich gut, aber jemand fragte, Farbe jede person, die einen text in einer anderen Farbe ?

Ich habe versucht, es zu bekommen, aber im, der Schwierigkeiten hat, kann mir jemand helfen wenn möglich ?

unten ist die basic-code für das, was ich getan habe\gefunden

hab ich so weit wie setzen Sie jede Zeile in ein array, aber dann zuweisen einer Farbe zu jeder Zeile kann ich nicht arbeiten...

ODER

wenn ich nicht das Fenster "chat" in der windows-mit der Verwendung einer text-Datei, dann wäre das gut\besser (spart das Aufräumen löschen unerwünschter text-Dateien..)

Bitte mir auch sagen, wie man besser auf meine Programmierung...ich habe nicht getan, so lange...(ein paar Monate)

Cheers
Pavle.

HTA-Chat

<HTA:APPLICATION 

     SCROLL="auto"
     SINGLEINSTANCE="yes"
     WINDOWSTATE="normal"
>
</head>

<SCRIPT Language="VBScript">

Sub Window_OnLoad
 Window.ResizeTo 400,300
   iTimerID = window.setInterval("Display", 100)
End Sub

    strPath = "C:\Users\Pavle\Desktop\"
    Set wshShell = CreateObject( "WScript.Shell" )
    strSender = wshShell.ExpandEnvironmentStrings( "%USERNAME%" )


Sub Display
    Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(StrPath & "Chat.txt", 1)

Do Until objFile.AtEndOfStream
    strCharacters = objFile.ReadAll
Loop

 objFile.Close


     DisplayBox.Value = strCharacters

        DisplayBox.ScrollTop = DisplayBox.ScrollHeight


 ' This splits each line.
' sArray = Split(DisplayBox.Value, vbcrlf)

End Sub

Sub InputBox

With document.parentWindow.event
 If .keycode = 13 then
    Const NORMAL_WINDOW = 1

    Const ForAppending = 8

    Set objFSO = CreateObject("Scripting.FileSystemObject")
     Set objTextFile = objFSO.OpenTextFile(StrPath & "Chat.txt", ForAppending, True)
      objTextFile.WriteLine strSender & ":" & Input.Value
       objTextFile.Close


    Input.Value = ""
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{BACKSPACE}"


Else
   .cancelbubble = false
     .returnvalue = true
 End If

End With

End Sub


</SCRIPT>
<body>

<textarea name="DisplayBox" rows="6" cols="40"></textarea>
<BR>
<BR>
<BR>
<textarea name="Input" rows="3" onKeydown=InputBox cols="40"></textarea>
</body>
</html>`

InformationsquelleAutor Pavle Stojanovic | 2013-01-11

Hier einige Richtlinien für Ihre Aufgabe.

Zunächst textarea kann nicht HTML, so kann es nicht verwendet werden als Unterlage für rich-text. Sie brauchen eine <pre> oder eher ein <div> für diesen Zweck. Zum Beispiel:

<div name="DisplayBox" class="textpad" contenteditable="true"></div>

Dann add tags zur Formatierung für die Zeilen beim Lesen der Datei. So etwas wie dieses:

Dim n
n = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(StrPath & "Chat.txt", 1)
Do Until objFile.AtEndOfStream
    n = n * (-1)
    strCharacters = strCharacters & "<p class='line" & n & "'>" & objFile.ReadLine() & "</p>"
Loop
objFile.Close
DisplayBox.innerHTML = strCharacters

<p> könnte <div> als gut. Dann brauchen Sie ein stylesheet mit einigen Klassen:

.line1 {
    color: red;
}
.line-1 {
    color: blue;
}
.textpad {
    position: relative;
    width: 400px;
    height: 200px;
    border: 2px inset;
    overflow-y: scroll;
}

Jetzt haben Sie rote und Blaue Linien in der #DisplayBox. Nur Stil der div wie Sie wollen.

_{(BTW das war mein Erster VBScript immer...)}

InformationsquelleAutor Teemu

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.