Avatar billede cybles Nybegynder
20. april 2001 - 11:51 Der er 3 kommentarer og
2 løsninger

VBScript


Hej VB Eksperter

Jeg har et lille spørgsmål ? jeg har dette lille VBScript hvor i jeg har denne kommando CurrentLine, det der sker er at den så tager den linje, dette skal den ikke gøre, den skal tage hele sætningen, hvad kan jeg bruge i stedet for CurrentLine ? 
Avatar billede johs_j Novice
20. april 2001 - 19:43 #1
Hvordan ser scriptet ud?
Avatar billede cybles Nybegynder
20. april 2001 - 20:15 #2
<html>

<head>
<title></title>
</head>

<body bgcolor=\"#C0C0C0\">
<%
  \'FileObject
    set myFileObject = Server.CreateObject(\"Scripting.FileSystemObject\")
  Set objHTTP = Server.CreateObject(\"AspHTTP.Conn\")
  \'Input file
  objHTTP.Url = \"http://www.knr.gl/news/dansk/5.htm\" 
 
  \'Output file
  objHTTP.saveFileTo = \"c:\\temp\\temp.htm\"
  tmpHTMLDoc = objHTTP.GetURL
  objHTTP.RequestMethod = \"GET\"

  Set objHTTP = Nothing

  set fromFile = myFileObject.OpenTextFile(\"c:\\temp\\temp.htm\")
 
  WHILE NOT fromFile.AtEndOfStream
    currentLine = fromFile.ReadLine
   
      IF INSTR(currentLine,\"<font color=\"\"#993300\"\">\") THEN
        response.write \"<font color=#993300 size=1 face=Arial>\" & currentLine & \"</font>\"
        END IF
      WEND
      %>
</body>
Avatar billede cybles Nybegynder
20. april 2001 - 20:16 #3
Sådan ser scriptet...
Avatar billede minijensen1 Nybegynder
07. maj 2001 - 17:12 #4
Prøv med det her:

<html>

<head>
<title></title>
</head>

<body bgcolor=\"#C0C0C0\">
<% ReplaceLine = \"<font color=\"\"#993300\"\">\"                    \' Strengen der skal laves om
  ReplaceWith = \"<font color=\"\"#993300\"\" size=\"\"1\"\" face=\"\"arial\"\">\"        \' Det strengen skal laves om til
  \'FileObject
    set myFileObject = Server.CreateObject(\"Scripting.FileSystemObject\")
  Set objHTTP = Server.CreateObject(\"AspHTTP.Conn\")
  \'Input file
  objHTTP.Url = \"http://www.knr.gl/news/dansk/5.htm\"; 
 
  \'Output file
  objHTTP.saveFileTo = \"c:\\temp\\temp.htm\"
  tmpHTMLDoc = objHTTP.GetURL
  objHTTP.RequestMethod = \"GET\"

  Set objHTTP = Nothing

  set fromFile = myFileObject.OpenTextFile(\"c:\\temp\\temp.htm\")
      Do While fromFile.AtEndOfStream = False
      currentLine = fromFile.ReadLine
      If Instr(currentLine, ReplaceLine) Then
        Response.Write Replace(currentLine, ReplaceLine, ReplaceWith)
      End If
    Loop
    Set fromFile = Nothing
    Set myFileObject = Nothing
    %>
</body>
Avatar billede cybles Nybegynder
25. oktober 2001 - 12:27 #5

Det virker ikke så jeg har valgt at lave det på en helt anden måde, får bare virksomheden til at poste indlægene to steder.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester