Community

il 27 maggio 2007 alle 15:10

81 messaggi dal 03 giugno 2001

grazie Maxiz ..
io è gia un'ora che ci sbatto la testa.... :)

------------------------------------
"Nella vita non si è mai fermi o si va avanti o... si va indietro"

il 27 maggio 2007 alle 17:25

81 messaggi dal 03 giugno 2001

Maxiz...
prendeo la tua idea di lavorare sulla riga...
ho modificato il mio script in questo.. modo... ma ancora non funge...

miariga = Split(testo_abstract,vbCrLf)
For i = LBound(miariga) To UBound(miariga)
response.Write (i) &") " & (miariga(i)) & "<Br>"
  maxLen=50 
  testo_riga=miariga(i)
  parole=split(testo_riga," ")

  testo_riga=""
  if len(testo_riga) > maxLen then
  
  att=0  
      
      
      for each parola in parole
      
        testo_riga=testo_riga & " " & parola
        att=att+len(parola)+1
  
            if att>=maxLen  then
              testo_riga=testo_riga &  "<Br>"
              att=0
              
            end if  
            
      
        next 
  else
  testo_riga  =testo_riga & "<BR>"
      
  end if

next

response.Write("TESTOMIO:  " & testo_riga)

però dai dimmi che sono vicino .... :)

se riesco a farlo entrare qui
if att>=maxLen then
testo_riga=testo_riga & "<Br>" att=0
end if

credo di aver risolto....
certo na parola.... ahaha

------------------------------------
"Nella vita non si è mai fermi o si va avanti o... si va indietro"

il 27 maggio 2007 alle 21:16

394 messaggi dal 11 agosto 2004

Ho fatto un paio di prove e credo sia funzionante se non al 100% al 70-80 (spero almeno). Un paio di prove le ho fatte e sembra essere ok.
Cmq l'ho risolto giusto perchè potrebbe tornarmi utile e l'ho risolto..
<%path=Request.ServerVariables("SERVER_NAME")
Server.ScriptTimeOut = "400000000"

If request("action") <> "" Then
action=request("action")
End If
If request.querystring("action") <> "" Then
action=request.querystring("action")
End If

If action="" Then %>
<form action="http://<%=Request.ServerVariables("SERVER_NAME") & request.servervariables("PATH_INFO")%>?action=test" method="post">
<textarea rows="12" name="testo" cols="37"></textarea><br>
<input type="submit" value="Invia">
</form>
<%End If%>

<%If action="test" Then

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set OutStream=FileObject.CreateTextFile(Server.mappath("testo.txt"))
Outstream.WriteLine request.form("testo")
OutStream.Close
Set OutStream=Nothing
Set FileObject=Nothing

Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set fileadded=fs.opentextfile(server.mappath(".\testo.txt"))
While not fileadded.AtEndOfStream = True
Maxlen=140
riga=Replace(fileadded.readline,Chr(34),"'")

If Len(riga) > maxlen Then

parole=Split(riga," ")
For x=0 To UBound(parole)

If newriga="" Then
newriga=parole(x) & " "
Else
newriga=newriga & parole(x) & " "
If x=UBound(parole) Then
testo=testo & newriga & Vbclrf
End If
End If

If Len(newriga) > maxlen Then
newparole=Split(newriga," ")
For y=0 To UBound(newparole)-1
newriga2=newriga2 & newparole(y) & " "
Next
testo=testo & newriga2 & Vbclrf
newriga2=""
newriga=""
newparole=""
End If

Next

Else
testo=testo & riga & Vbclrf
End If

Wend
Set fileadded=Nothing
Set fs=Nothing
response.write testo
End If%>

il 28 maggio 2007 alle 00:48

81 messaggi dal 03 giugno 2001

che dire.. sei un grande....Maxiz
non so se un giorno sto script possa servirti.. ma di sicuro a me hai fatto una granfavore... davvero ripagherei vlentieri in birra.... :)

visto che ormai sono diventato il tuo incubo.. ti dico ancora quello che ho trovato... che non và,... giusto se hai tempo.. se no hai tutte le ragioni di mandarmi a qual paese...

cioè lo script va bene.. lo ricopio con dei numeri per spiegarmi...

Maxlen=140
riga=Replace(fileadded.readline,Chr(34),"'")

If Len(riga) > maxlen Then
  parole=Split(riga," ")
  For x=0 To UBound(parole)

If newriga="" Then
newriga=parole(x) & " "
Else
newriga=newriga & parole(x) & " "
If x=UBound(parole) Then
testo=testo & newriga & "1111" & vbCrLf
End If

End If




If Len(newriga) > maxlen Then
newparole=Split(newriga," ")
For y=0 To UBound(newparole)-1
  newriga2=newriga2 & newparole(y) & " "
Next

testo=testo & newriga2 & "2222" & vbCrLf
newriga2=""
newriga=""
newparole=""
End If
  
  Next
Else
  testo=testo & riga & "00000" & vbCrLf
End If

noto che se sono nella situazione

1111
2222

la riga 1111 si ripete all' inizio della riga 2222 (ripetendo appunto il testo)

in tutte le altre va ok....

si può fare.. o me ce manni.. come si suol dire.. :)
saluti e ancora grazie giuseppe

------------------------------------
"Nella vita non si è mai fermi o si va avanti o... si va indietro"

il 28 maggio 2007 alle 11:15

394 messaggi dal 11 agosto 2004

mica c'ho capito tanto del problema...

il 28 maggio 2007 alle 16:13

81 messaggi dal 03 giugno 2001

Questo e il mio tipo testo:

dermoidi, nevi melanocitici congeniti, xxxxxxxxxx xxxxxxxxxxxxx xxxxxxxxxxx
a sedazione generale senza intubazione o, xxxxxxxxxx xxxxxxxxxxxxx xxxxxxxxxxx
di durata relativamente breve, non superiore xxxxxxxxxx xxxxxxxxxxxxx xxxxxxxxxxx
di età superiore ai due anni e in buone xxxxxxxxxx xxxxxxxxxxxxx xxxxxxxxxxx
è possibile oggi proporre modalità anestesiologiche xxxxxxxxxx xxxxxxxxxxxxx
assistenziale di day hospital.
assistenziale di day hospital. • Gli esiti xxxxxxxxxx xxxxxxxxxxxxx
in ragione della maggiore plasticità della xxxxxxxxxx xxxxxxxxxxxxx
prepuberale. Nei bambini e negli adolescenti, xxxxxxxxxx xxxxxxxxxxxxx
correlati alla predisposizione genetica e al xxxxxxxxxx xxxxxxxxxxxxx
di prevenzione.
di prevenzione. • Le lesioni localizzate xxxxxxxxxx xxxxxxxxxxxxx
matura la consapevolezza xxxxxxxxxx xxxxxxxxxxxxx

vedi la riga 6 e 7 e la riga 11 e 12 ce una ripetizione.....

grazie ancora...

------------------------------------
"Nella vita non si è mai fermi o si va avanti o... si va indietro"

il 28 maggio 2007 alle 20:24

394 messaggi dal 11 agosto 2004

ok capito. DOmani ci lavoro se qualcuno non mi anticipa...
Anche se cmq sono già a buon punto

Modificato da Maxiz il 28 maggio 2007 20.25 -

il 28 maggio 2007 alle 23:21

394 messaggi dal 11 agosto 2004

E poi di che non sono bravo! :)
<%path=Request.ServerVariables("SERVER_NAME")
Server.ScriptTimeOut = "400000000"

If request("action") <> "" Then
action=request("action")
End If
If request.querystring("action") <> "" Then
action=request.querystring("action")
End If

If action="" Then %>
<form action="http://<%=Request.ServerVariables("SERVER_NAME") & request.servervariables("PATH_INFO")%>?action=test" method="post">
<textarea rows="12" name="testo" cols="37"></textarea><br>
<input type="submit" value="Invia">
</form>
<%End If%>

<%If action="test" Then

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set OutStream=FileObject.CreateTextFile(Server.mappath("testo.txt"))
Outstream.WriteLine request.form("testo")
OutStream.Close
Set OutStream=Nothing
Set FileObject=Nothing

Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set fileadded=fs.opentextfile(server.mappath(".\testo.txt"))
While not fileadded.AtEndOfStream = True
Maxlen=50
riga=Replace(fileadded.readline,Chr(34),"'")

If Len(riga) > maxlen Then

parole=Split(riga," ")
For x=0 To UBound(parole)

If newriga="" Then
newriga=parole(x) & " "
Else
newriga=newriga & parole(x) & " "
End If

If Len(newriga) > maxlen Then
newparole=Split(newriga," ")
For y=0 To UBound(newparole)-1
newriga2=newriga2 & newparole(y) & " "
Next
testo=testo & newriga2 & " <br>"
newriga2=""
newriga=""
newparole=""
Else
If x=UBound(parole) Then
testo=testo & newriga & " <br>"
newriga=""
End If
End If

Next

Else
testo=testo & riga & " <br>"
End If

Wend
Set fileadded=Nothing
Set fs=Nothing
response.write testo
End If%>