[asp] Tekens tellen (waarde wordt getoond punt)

[Lost-Viking]

Ik wil hier ff iets posten, voor de fun, als jullie er wat aan hebben, asjeblieft !

Wat hieronder tussen de ## staat, moet je je variable invullen, daarna gaat hij de tekens tellen en bij elke punt in de tekst plaatst hij de waarde.

(kheb het ff tussen php quotes gezet voor kleurtjes)

PHP:

<?
<% Content_Var = ##Rs_counting.Fields.Item("Content").Value## %>
<% Content_Var_aantal = Len(Content_Var)%>
<font face="Verdana, Arial" size="2"> <b>Aantal tekens in tekst : <%= Content_Var_aantal%> <br>
</b> <br>
<br>
<%= Left(Content_Var, Instr(Content_Var,"."))%><font size="-2" color="#FF0000">[<%= Instr(Content_Var,".")%>]</font></font> <font face="Verdana, Arial" size="2"> 
<% start_Search_Count = Instr(Content_Var,".") %>
<% Berekening_tekens = Content_Var_aantal - start_Search_Count %>
<% Content_var = Right(Content_var,Berekening_tekens) %>
<% for r = 1 to 999 step 1 %>
<% if Berekening_tekens <= "0" then exit for %>
<%= Left(Content_Var, Instr(Content_Var,"."))%>
<% if Eindetekst_value = Instr(Content_Var,".") + start_Search_Count then exit for else 
%>
<font size="-2" color="#FF0000">[
<%
Response.Write(Instr(Content_Var,".") + start_Search_Count)
Eindetekst_value = Instr(Content_Var,".") + start_Search_Count
%>]</font></font> <font face="Verdana, Arial" size="2"> 
<% start_Search_Count = Instr(Content_Var,".") + start_Search_Count %>
<% Berekening_tekens = Content_Var_aantal - start_Search_Count %>
<% Content_var = Right(Content_var,Berekening_tekens) %>
<% next %>
<br>
<br>
?>

Resultaat :

Lorem ipsum dolor JOTI sit amet, consectetuer adipiscing elit, sed diam nonummy nibh
euismod tincidunt ut laoreet dolore magna aliquam erat volutpat.[155] Ut wisi en JOTI JOTIim
ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis n JOTIvisl
ut aliquip ex ea commodo consequat. [ 311]

[Gert]

Uhm, je weet dat er meerdere regels tussen <% en %> mogen?

[dusty]

Leuke poging, Echter is er een betere en simpelere manier om dat voor elkaar te krijgen.

Probeer het nog eens op een andere manier.

[Lost-Viking]

Ik weet dat er meerdere regels mogen, tis al een tijd geleden dat ik dat script gemaakt hebt... Ik had er net iets in gewijzigd, dus ik d8 ik kan het hier wel posten, voor de mensen die het willen hebben... Naar mijn idee werkt het gewoon, dat is het belangrijkste...

[Lost-Viking]

Het was nl. eerst zo, wanneer er geen punt aan de einde van de tekst stond... hij ging lopen en de server liet vast lopen.. das nu ook getackeld

[dusty]

Op maandag 26 november 2001 14:22 schreef Lost-Viking het volgende:
Naar mijn idee werkt het gewoon, dat is het belangrijkste...

Niet echt de juiste programmeer mentaliteit toch?