Errore in fase di lettura di un file txt

[fruncy]

Salve a tutti

Ho uno scritp che legge un file txt e per ogni riga prende una parte del testo che trova alla posizione 180 e la passa ad una struttura Select Case per poi a secondo dei casi scrivere altri file testo.

Il problema è che mi segnala questo codice errore :

"
Si procede all'acquisizione del file di stampa ---> file_stampaeventi/6i11.0002.txt
3
Questo è il contenuto che viene passato nella select FAM

Errore di run-time di Microsoft VBScript error '800a000d'

Tipo non corrispondente: '[string: "FAM"]'

/eventiquadromorosi/leggistampeeventi.asp, line 46
"


Il codice è questo:

<%
Server.ScriptTimeOut = 10200
'Response.write "Sono nella pagina di lettura" & "
"
file = "file_stampaeventi/" & Request.QueryString("nomefile")
'file = Request.QueryString("nomefile")
'percorso = Server.MapPath("file_stampaeventi/")
response.write "Si procede all'acquisizione del file di stampa ---> " & file & "
"
'response.end
'ilfile = percorso & file
ilfile=server.mappath(file)
'response.write ilfile
'response.end
Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(ilfile, 1, False)

counter=0
do while not ilfile.AtEndOfStream
	counter=counter+1

	illine=ilfile.readline
	illine=replace(illine,chr(34),"")
	'response.write " riga ---> " & counter & " --- " &  illine & "
"
	
	tipoufficio=LEFT(illine, 180)
	'Response.write "Questo è il contenuto della riga " & tipoufficio & "
"

	'tipoufficio=LEN(tipoufficio)
	tipoufficio = TRIM(RIGHT(tipoufficio, 3))
	
	if tipoufficio = "INT" Then
	tipoufficio = "INTERVENTO"
	contacarattere=LEN(tipoufficio)
	end if
	if tipoufficio = "FAM" Then
	'tipoufficio = "FAME"
	tipoufficio = TRIM(tipoufficio)
	contacarattere=LEN(tipoufficio)  & "
"
	
	response.write contacarattere
	end if

	
	Response.write "Questo è il contenuto che viene passato nella select " & tipoufficio & "
"

	 	Select case tipoufficio

		Case IMM, IPO, INTERVENTO, VIM, 915
		

		Response.write "CASO IMMO" & "
"
		
		Case 002
		

		Response.write "CASO CONC" & "
"

		Case FAM		

		Response.write "CASO fam" & "
"

		Case IST, 934
		

		Response.write "CASO IST" & "
"

		Case 003, TER, FIT
		

		Response.write "CASO TER" & "
"


		Case else 

		Response.Write "TUTTI GLI ALTRI" & "
"
		'tipoufficio = LEFT(illine, 177)
		'tipoufficio = RIGHT(tipoufficio, 3)
		'response.write codicefiscale & "questo è il codice fiscale " & "
"
		'response.end
		'codicefiscale = TRIM(codicefiscale)
		'contacodicefiscale = LEN(codicefiscale)
		

		'status = LEFT(illine, 107)
		'status = RIGHT(status, 9)

		'Response.write " Questo è lo status del contribuente " & status & " e questa è la sua lunghezza " & Len(status) & "
"


			'if NOT codicefiscale =  " " then
			 
				

				'If codicefiscale <> " " AND status = "Assegnato" Then
				  contarighe = contarighe + 1
				 'response.write codicefiscale & "questo è il codice fiscale " & "
"
				 'response.write contacodicefiscale & "
"
				 'Response.Write "Sono nel caso ASSEGNATO" & "
"

				'nome = LEFT(Request.QueryString("nomefile"), 9)
				'strPath = "seqmoro/" & nome & ".qm"

				'strPath = strPath & ".qm"
				'response.write strPath & "
"
				'response.end

				'Const ForWriting = 2
      			'Dim objNewFile, objFSO, strPath
      			'strPath = Server.MapPath(strPath)

				'Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    			'		If Not objFSO.FileExists(strPath) Then
      			'		Set objNewFile = objFSO.CreateTextFile(strPath, True)
	      		'		objNewFile.Close
      			'		Set objNewFile = Nothing
      			'		'Response.write "Creo il file " & "
"
    			'		end if
				'		Set objFSO = Nothing

				'		Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
				'		Set objOpenFile = objFSO.OpenTextFile(strPath, 8)
				'		objOpenFile.WriteLine("012012" & codicefiscale & " 00000000000000000000  10000000000000000000000000000000000")
    			'		objOpenFile.Close
				'		Set objOpenFile = Nothing
				'end if
				'end if

		End Select

loop
ora = now()
Response.write "Gentile operatore in data" & ora & "ho effettuato l'acquisizione del file " & Request.QueryString("nomefile") & " da te selezionato." & "
"
Response.write "Operazione si è completata correttamente ho creato il file " & strPath & " composto da: " & contarighe & " records." 
ilfile.Close
set ilfile=nothing
set file=nothing

%>

L'errore è sulla riga della Select case tipoufficio


Qualcuno sa darmi qualche indicazione?

[Roby_72]

Sono stringhe...

Case "FAM"

Roby

[fruncy]

Grazie dell'aiuto l'errore è proprio quello.
Ora funziona bene.

[Roby_72]