Hur lägger man till denna funktion...

7 svar · 257 visningar · startad av Rinaldo 11 okt. 2001

RinaldoMedlem sedan mars 20014 214 inlägg

Trådstart11 okt. 2001 14:28#1

Function Shorter(strText)
	arrText = Split(strText, " ")
	
	For counter = 0 To uBound(arrText)
		If Len(arrText(counter)) > 50 then
			If newText <> "" then
				newText = newText & " " & Left(arrText(counter), 50) & " " & Right(arrText(counter), Len(arrText(counter))-50)
			Else
				newText = Left(arrText(counter), 50) & " " & Right(arrText(counter), Len(arrText(counter))-50)
			End If
		Else
			If newText <> "" then
				newText = newText & " " & arrText(counter)
			Else
				newText = arrText(counter)
			End If
		End If
	Next
	
	Shorter = newText
End Function

av spin till Emissions WF kod. vill få den i samma tag som som allt ligger i...

jorgenMedlem sedan feb. 20012 412 inlägg

11 okt. 2001 15:44#2

Hej!

Ursäkta, jag är allmänt trög det vet jag, men jag förstår inte frågan.

Vad vill du göra?

mvh Jörgen

RinaldoMedlem sedan mars 20014 214 inlägg

11 okt. 2001 15:58#3

Jag vill göra så att WF koden även förkortar ord som är längre än 50 tecken och då lägga till dem i : wfParser.Parse.

RinaldoMedlem sedan mars 20014 214 inlägg

12 okt. 2001 18:16#4

någon?

RinaldoMedlem sedan mars 20014 214 inlägg

14 okt. 2001 17:25#5

Är det verkligen inte någon som kan hjälpa mig med detta ?

emissionMedlem sedan dec. 19996 721 inlägg

14 okt. 2001 21:11#6

Om du vill lägga in din funktion som en del av parsern så är det bara att lägga in den i parser-classen och lägga in ett anrop till den i slutet av Parse-metoden.

RinaldoMedlem sedan mars 20014 214 inlägg

15 okt. 2001 13:27#7

I parser classen...?
såhär?

Function PareseLength(strText)
arrText = Split(strText, " ")

For counter = 0 To uBound(arrText)
If Len(arrText(counter)) > 50 then
If newText <> "" then
newText = newText & " " & Left(arrText(counter), 50) & " " & Right(arrText(counter), Len(arrText(counter))-50)
Else
newText = Left(arrText(counter), 50) & " " & Right(arrText(counter), Len(arrText(counter))-50)
End If
Else
If newText <> "" then
newText = newText & " " & arrText(counter)
Else
newText = arrText(counter)
End If
End If
Next

ParseLengt = newText
End Function

Hur och var ska jag anropa den?

emissionMedlem sedan dec. 19996 721 inlägg

15 okt. 2001 13:49#8

Läs min kod, så hittar du både parser-classen (EMarkupParser) och dess Parse-metod.