Avatar billede jpj3 Nybegynder
14. oktober 2004 - 22:20 Der er 3 kommentarer og
1 løsning

Hvordan får jeg txt til at knække.

Jeg har følgende kode der henter txt fra DB. Men problemet er at den ikke bliver indenfor rammen. Når der bliver skrevet ny txt i et textarea
<textarea name="Info" cols="50" rows="10" wrap="PHYSICAL">
Så skulle den gerne knække txt´en efter 50 tegn, og ikke som nu hvor den skriver hele txt´en i en lang køre.

Den side der viser txt´en

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file = "include/configlille.asp" -->
<%
Dim Sponsor_txt
Dim Sponsor_txt_numRows

Set Sponsor_txt = Server.CreateObject("ADODB.Recordset")
Sponsor_txt.ActiveConnection = MM_login_2005_STRING
Sponsor_txt.Source = "SELECT * FROM Sponsor_hoved"
Sponsor_txt.CursorType = 0
Sponsor_txt.CursorLocation = 2
Sponsor_txt.LockType = 1
Sponsor_txt.Open()

Sponsor_txt_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<td valign="top"></td>
        <table width="100%" border="0">
          <tr class="tros">
            <td width="251">Sponsorer</td>
            <td width="250">Hovedsponsor:
                <% if admin = 1 then %>
                <a href="../sponsor_opret_txt.asp"><img src="../Images/edit.gif" alt="Opret txt " width="15" height="15" border="0"></a>[Logget ind]
                <% end if %>
            </td>
            <td width="30%"><div align="right"></div></td>
          </tr>
          <tr>
            <td valign="top"><p>Menu<br>
              menu1<br>
              menu2
            </p>            </td>
            <td valign="top">
              <table width="100%"  border="0">
                <tr>
                  <td>&nbsp;</td>
                  <td><div align="right"><%=(Sponsor_txt.Fields.Item("Dato").Value)%></div></td>
                </tr>
                <tr>
                  <td colspan="2" class="overskrift"><%=(Sponsor_txt.Fields.Item("Oskrift").Value)%></td>
                </tr>
                <tr>
                  <td colspan="2"><%=(Sponsor_txt.Fields.Item("Info").Value)%> </td>
                </tr>
            </table></td>
            <td width="30%" valign="top"><br>
                <table border="0">
                  <tr>
                    <td>menu</td>

                    <td></td>

                    <td>ikke menu </td>
                  </tr>
                </table></td></tr>
          <tr>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td width="30%">&nbsp;</td>
          </tr>
        </table>
        <td width="30%" valign="top"><% if admin = 1 then %>         
          <a href="../sponsor_opret.asp"><img src="../Images/edit.gif" alt="Opret sponsor" width="15" height="15" border="0"></a>
          <% end if %> <br>
          <table border="0">
</body>
</html>
Avatar billede popsy Novice
14. oktober 2004 - 22:23 #1
Tjaa, får du det løst, så tip lige ekspertens admin om det, eftersom der er samme problem i kassen "Sagt om eksperten" :-/
Avatar billede jpj3 Nybegynder
14. oktober 2004 - 22:26 #2
Jeg har fundet dette eks. Men jeg kan ikke finde ud af at få det puttet ind.

<%
strTekst = "Dette er et simpelt forsøg som skal vise hvordan man kan knække en tekst efter et bestemt antal tegn dog uden at knække ord!"
Response.Write lineWrapper(strTekst, 15)

Public Function LineWrapper( byVal strTekst, byVal intLength )
  Dim n, i, c, strCache
  c = 1
  For n = 1 To Len(strTekst)
    If c = intLength Then
      i = n
      Do While i > 0
        strTempChar = Mid(strTekst, i, 1)
        If strTempChar = " " Then
          Response.Write("<br>")
          n = i
          Exit Do
        End If
        i = i - 1
    strCache = ""
      Loop
      c = 1
    End If
    strTempChar = Mid(strTekst, n, 1)
  If strTempChar = " " Then
      Response.Write strCache & strTempChar
    strCache = ""
  Else
    strCache = strCache & strTempChar
  End If
    c = c + 1
  Next
End Function
%>
Avatar billede jpj3 Nybegynder
14. oktober 2004 - 22:57 #3
Det fungerer aligevel som det skal.
Problemet kommer først hvis man skriver et ord på over 50 bogstaver, og hvor tit er det lige det sker.
Avatar billede popsy Novice
15. oktober 2004 - 09:37 #4
Hmm, underligt nok, men du har ret. Mærkeligt at det ikke fungerer på eksperten, men måske læser den teksten som et helt ord :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester