Læs 5 Linjer af tekst

Hejsa,

Det kan man desværre ikke gøre!

Men til gengæld kan du gøre således:

strSQL = "Select textField from Database where ID = dinID"
set rs = dbconn.execute(strSQL)

response.Write left(rs("textField"),200) & "..."

På den måde skriver du kun de 200 første tegn af indholdet af "textfield". Det er blandt andet sådan man laver de "berømte" teaser-artikler hvor man skriver starten af en artikel, og så skriver "Læs mere"... til sidst!

Håber at det var noget i den stil du mente!

Mvh,

Thomas Regin.

Du kan gøre det i PHP:
$rest = substr("abcdef", 0, 4); // returns "abcd"
$rest = substr("abcdef", 0, 8); // returns "abcdef"
Se: http://www.php.net/manual/en/function.substr.php

Eller i db'en (MySQL):
SELECT SUBSTRING(tekst,0,100)
Altså, 0=vi starter udtrækket fra tekst fra position 0 og vi vil have de første 100 karaktere af "tekst".
Se manualen under String Functions

Det var dog tåbeligt af mig! Jeg roder PHP/MySQL sammen med ASP!
Sorry!!!

Det kan være måske en løsning at læse fra en text fil:
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")

Set f=fs.OpenTextFile(Server.MapPath("minTest.txt"), 5) 'her bestemmes antal linier
Response.Write(f.ReadLine)
f.Close

Set f=Nothing
Set fs=Nothing
%>

Hossein,

Det er ikke for at være kværulerende, men du bestemmer da ikke antal linier i din OpenTextFile-metode, så bare lige for at eliminere evt. misforståelser:

Syntaxen for OpenTextFile er

OpentextFile(
string Path,
integer property Input/Output (ReadOnly/Write/Append),
boolean property Create (Skal filen oprettes, hvis den ikke eksisterer)
string property Format (Formatet af filen. F.eks UTF-8)
)

Den eneste måde jeg kender, for at hive et specifikt antal linier ud af en fil er flg:

for i = 1 to 5
  tf.ReadLine
Next

Med venlig hilsen,

Thomas Regin.

Tak Thomas, du har ret.
vh Hossein

kan man ikke bare lave et loop gennem rs("textfield") ??

i = 0
For EACH linie In Split(rs("textfield"), VBCrLf)
i = i + 1
If i <= 5 Then Response.write linie & "<BR>" & VBCrLf
Next

Thomas, hvis du lige gider skrive lidt mere udførligt.. ikke helt sikker på hvad du har lavet - og desuden virker det ik :o

Intrigue,

Okay.. Du eksekverer din SQL som altid med:

strSQL = "BLBLA"
set rs = myConn.execute(strSQL)

Herefter kan du, på det felt, som du vil arbejde med, sætte en grænse på hvor mange karakterer der skal vises:

Response.Write left(rs("MitTekstFelt"),300)

Nu vil den kun skrive 300 karakterer ud fra ovenstående felt.

Hvis du har problemer, så skriv tilbage!

Mvh,

Thomas Regin.

Fremragende - mange tak :D