Deling af forlang ord

jeg tror, at hvis der fandtes en løsning, så var den også indarbejdet på eksperten...

okkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk?

det findes en måde hvordan kan jeg ikke huske men kan godt finde ud af det !!!

Det gør der! Eksperten havde ikke dette problem før, men nu er det
her igen.

Der er to modeller der kunne anvendes:

1.) Lav det således at det felt hvori indlæggene skrives
    ikke har vandret scroll.

2.) Test indlægget før det bliver postet. F.eks kunne du
    indlæse det i en streng-variabel, og så teste denne for
    mellemrum. Hvis der ikke var et mellemrum efter f.eks.
    50 karakterer, ja så accepteres indlægget ikke.


/tjacob

jeg har aldrig set eksperten have løst dette problem - og jeg har trods alt været her et stykke tid

-måske du har ret keyser..., jeg har muligvis bare ikke set det længe ;-)

tjacob

Har du et eksempel på hvordan jeg tester dette ?

NB: Alt dette er VB [script]. Hvordan du implementerer det, samt
den præcise syntaks må du selv rode med (det skal måske ind i en funktion osv):

Først indlæser du indlægget f.eks. i MyStr:

Dim i,a

For i = 1 To Len(MyStr)
    if Mid(Mystr,i,1) = " " Then a = 0      '*******
    a = a + 1
    if a > 50 Then
      Mid(Mystr,i,2) = Mid(Mystr,i,1) & " " 
      a = 0
    End If
Next

'*******
Denne If-sætning indsætter et mellemrum, hvis der har været 50 karakterer uden.
Du kunne erstatte den med :
If a > 50 Then
    MyStr = ""
    Exit For
End If
Den sletter strengen helt.


Til sidst indsætter du MyStr som dit indlæg igen.

Det er ikke helt godt, da der bliver slettet en karakter,
-lige et øjeblik

If sætningen i løkken skal være:

If a > 50 Then
    MyStr = Left(MyStr, i) & " " & Right(MyStr, Len(MyStr) - i)
    a = 0
End If