Inkompatibla typer

5 svar · 254 visningar · startad av ampy 4 jan. 2002

ampyMedlem sedan feb. 20011 498 inlägg

Trådstart4 jan. 2002 23:07#1

Vad är det för fel på denna rad:

	

	If DateDiff("s", DateAdd("s", 0, Left(thisLine, 19)), Time) => 120 Then Exit For '120 sekunder = 2 minuter

Felmeddelande blev:

Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: '[string: "00:03:20&#0124;public&#0124;And"]'
/Ampy/chat1234/room.asp, line 124

LarsGMedlem sedan dec. 200012 464 inlägg

4 jan. 2002 23:14#2

Hur ser thisLine ut?

Felmeddelandet beror på att argumenten till dateadd skall vara av subtypen date och inte string.

Kan du förklara lite mer vad du vill göra?

ampyMedlem sedan feb. 20011 498 inlägg

4 jan. 2002 23:16#3

Vänta...

[Redigerat av ampy den 05 jan 2002]

ampyMedlem sedan feb. 20011 498 inlägg

4 jan. 2002 23:18#4

Fattar inte riktigt vad du menar men jag kan vissa lite mer kod:

<%
Set fileObject = Server.CreateObject("Scripting.FileSystemObject")
CheckFile
Set inStream = fileObject.OpenTextFile(Server.MapPath("" & Date & ".txt"), 1, True, False)

	rawfile = inStream.ReadAll

	splittedFile = Split(rawfile, vbCrLf)

	For Each thisLine in splittedFile

		If Len(thisLine) <= 3 Then Exit For
		If DateDiff("s", DateAdd("s", 0, Left(thisLine, 19)), Now) => 120 Then Exit For '120 sekunder = 2 minuter

		file = file & vbCrLf & ParseText(thisLine)
	Next

inStream.Close
Set inStream = Nothing

If IsOnline(Session("Name")) = "True" Then
	strText = Request.Form("lastmessage")
	If strText <> "" And Session("lastmessage") <> strText Then
		Session("lastmessage") = strText
		If LCase(Left(strText, 6)) = "/msg " & chr(34) Then
			strTo = Mid(strText, 7, Instr(7, strText, Chr(34)) - 7)
		Else
			strTo = "public"
		End If

		file = ParseText(Now & "&#0124;" & strTo & "&#0124;" & Session("Name") & "&#0124;" & strText) & file
		rawfile = Time & "&#0124;" & strTo & "&#0124;" & Session("Name") & "&#0124;" & strText & vbCrLf & rawfile

		Set outStream = fileObject.CreateTextFile(Server.MapPath("" & Date & ".txt"), True)
		outStream.WriteLine(rawfile)
		outStream.Close
		Set outStream = Nothing
	End If
Else
	Session("Name") = ""
	Session("Admin") = ""
	Session("lastmessage") = ""
	%>

HarbackMedlem sedan juni 2001206 inlägg

4 jan. 2002 23:21#5

=> ska vara >=

eller det kanske inte spelar någon roll?

LarsGMedlem sedan dec. 200012 464 inlägg

5 jan. 2002 20:02#6

Jag undrar bara vad det finns för data i filen date.txt?

Det jag inte förstår är hur du skulle kunna tolka de 19 första tecknen på varje rad som ett klockslag.