---
title: "underliga tecken i txtfil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/78428-underliga-tecken-i-txtfil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "LR^evil.sid"
published: "2003-05-29T20:00:54.000Z"
updated: "2003-05-29T20:34:28.000Z"
replies: 4
views: 220
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/78428-underliga-tecken-i-txtfil"
---

# underliga tecken i txtfil

## #1 — LR^evil.sid, 2003-05-29T20:00Z

```
<%
	dim txtobj, thetxt, path, cntr

	path = server.mappath("\project\") & "\cnt.txt"

	set txtobj = server.createobject("scripting.filesystemobject")
	set thetxt = txtobj.opentextfile(path, 1, false)
	cntr = thetxt.readline
[red][b]line 30	cntr = cntr + 1[/b][/red]
	thetxt.close

	set txtobj = server.createobject("scripting.filesystemobject")
	set thetxt = txtobj.createtextfile(path, 2, true)
	thetxt.writeline cntr
	thetxt.close
%>
	<font face = 'verdana' size = '2'>Du är besökare nr: <% =cntr %></font>
```

genererar:

```
Microsoft VBScript runtime error '800a000d' 

Type mismatch: '[string: "ÿþ1"]' 

/project/index.asp, line 30
```

varför?

Permalänk: https://www.webforum.nu/p/78428

## #2 — voigtann1, 2003-05-29T20:05Z

prova:

```
<%
	dim txtobj, thetxt, path, cntr

	path = server.mappath("\project\") & "\cnt.txt"

	set txtobj = server.createobject("scripting.filesystemobject")
	set thetxt = txtobj.opentextfile(path, 1, false)
	cntr = thetxt.readline
	cntr = [b]cint([/b]cntr[b])[/b] + 1
	thetxt.close

	set txtobj = server.createobject("scripting.filesystemobject")
	set thetxt = txtobj.createtextfile(path, 2, true)
	thetxt.writeline cntr
	thetxt.close
%>
				<font face = 'verdana' size = '2'>Du är besökare nr: <% =cntr %></font>
```

Vi kan ju inte lägga ihop ett tal med en string.. så vi gör om stringen till ett tal.. typ :e

Permalänk: https://www.webforum.nu/p/1067224

## #3 — LR^evil.sid, 2003-05-29T20:10Z

> **voigtann1 skrev:**
>
> Vi kan ju inte lägga ihop ett tal med en string.. så vi gör om stringen till ett tal.. typ

Jag vet, det är inte det som är problemet, "ÿþ" läggs till före antalet i "cnt.txt".

Vad har hänt efter som dessa tecken läggs till?

Permalänk: https://www.webforum.nu/p/1067226

## #4 — Sebbe, 2003-05-29T20:17Z

Du kan ju göra såhär, även om jag tycker att det inte ska behövas.

```
<%
dim txtobj, thetxt, path, cntr

path = server.mappath("\project\") & "\cnt.txt"

set txtobj = server.createobject("scripting.filesystemobject")
set thetxt = txtobj.opentextfile(path, 1, false)

cntr = thetxt.readline
[b]Set RegExp = New Regexp
RegExp.Global = True
RegExp.IgnoreCase = True
RegExp.Pattern = "[^0-9]*"
cntr = RegExp.Replace(cntr, "")
Set RegExp = Nothing[/b]
cntr = CInt(cntr) + 1
thetxt.close

set txtobj = server.createobject("scripting.filesystemobject")
set thetxt = txtobj.createtextfile(path, 2, true)
thetxt.writeline cntr
thetxt.close
%>
<font face = 'verdana' size = '2'>Du är besökare nr: <% =cntr %></font>
```

Permalänk: https://www.webforum.nu/p/1067227

## #5 — LR^evil.sid, 2003-05-29T20:34Z

Tack, det fungerar, men filen innhåller fortfarande "ÿþ".

Som det ser ut nu så innehåller cnt.txt "ÿþ6" och index.asp visar 69

Dags att installera om operativet eller?

Permalänk: https://www.webforum.nu/p/1067244

---

Tråden på webben: https://www.webforum.nu/amne/asp/78428-underliga-tecken-i-txtfil