Jump to content

How to add link breaks?

kegiaumat055
 Share

Recommended Posts

kegiaumat055 Seeker

kegiaumat055

Posted
Posted (edited)

How to add link breaks with random sentences in a paragraph?

Example:

Sentence1. Sentence2. Sentence3. Sentence4. Sentence5. Sentence6. Sentence7

---> result:

Sentence1. Sentence2.

Sentence3. Sentence4. Sentence5.

Sentence6.

Sentence7

Please help me ! Edited by kegiaumat055
kegiaumat055 Seeker

kegiaumat055

Posted
  • Author
Posted 

#include <string.au3>
    #include <array.au3>
    
    $open= FileOpen('input.txt', 128)
    If @error Then Exit
    $update=FileOpen('output.txt',128+8+1)
    If @error Then Exit
    $text=FileReadline($open)
    $random = random(1, 10)
    $split = StringSplit($text,".")
    if @error then Exit

Can you help me write the rest, please ?

kegiaumat055 Seeker

kegiaumat055

Posted
  • Author
Posted (edited) 

#include<String.au3>

    $open= FileOpen('input.txt', 128)
    If @error Then Exit
    $update=FileOpen('output.txt',128+8+1)
    If @error Then Exit
    $text=FileRead($open)
    
    $split = StringSplit($text,".")
    if @error then Exit
    $sens=StringSplit($text,".",1)
  
     for $i=1 to $sens[0]
       FileWrite($update, $sens[$i] & ".")
       If mod($i,random(2,3,1)) == 1 Then
          FileWrite($update, @CRLF)
          
     Next
      
    FileClose($update)
    FileClose($open)
What is wrong ? It show an error :"Next statement with no matching for statement"

Edited by kegiaumat055
tonycst Universalist

tonycst

Posted
Posted

Am not sure what you trying to accomplish here.

New line is usualy created by @CRLF

MsgBox(0,"","line 1" & @CRLF & "line 2")

or

GUICtrlCreateEdit ("line 1" & @CRLF & "line 2",0,0,100,60)

Or are you trying to read the file and detect where it brakes the line ?

czardas Universalist

czardas

Posted
Posted (edited)

I'm not sure if this is exactly what you want or not.

$open= FileOpen('input.txt', 128)
If @error Then Exit
$update=FileOpen('output.txt',128+8+1)
If @error Then Exit
$text=FileRead($open)

StringReplace($text, @CR, "")
StringReplace($text, @LF, "")
$text = StringStripWS($text, 2)

If StringRight($text, 1) = "." Then $text = StringTrimRight($text, 1) ; <== ERROR WAS HERE
$sens = StringSplit($text,".",1)

$sString = ""
If $sens[0] Then $sString = $sens[1] & "."
If $sens[0] > 1 Then
    For $i = 2 To $sens[0]
        If $sens[$i] = "" Then ContinueLoop
        If random(0,2,1) Then
            $sString &= $sens[$i] & "."
        Else
            $sString &= @CRLF & StringStripWS($sens[$i], 1) & "."
        EndIf
    Next
EndIf

FileWrite($update, $sString)

Actually this isn't necessarily the best solution, but I'm still not entirely sure what the input.txt will contain.

Edited by czardas

operator64  ArrayWorkshop

kegiaumat055 Seeker

kegiaumat055

Posted
  • Author
Posted (edited)

I'm not sure if this is exactly what you want or not.

$open= FileOpen('input.txt', 128)
If @error Then Exit
$update=FileOpen('output.txt',128+8+1)
If @error Then Exit
$text=FileRead($open)

StringReplace($text, @CR, "")
StringReplace($text, @LF, "")
$text = StringStripWS($text, 2)

If StringRight($text, 1) = "." Then StringTrimRight($text, 1)
$sens = StringSplit($text,".",1)

$sString = ""
If $sens[0] Then $sString = $sens[1] & "."
If $sens[0] > 1 Then
    For $i = 2 To $sens[0]
        If $sens[$i] = "" Then ContinueLoop
        If random(0,2,1) Then
            $sString &= $sens[$i] & "."
        Else
            $sString &= @CRLF & StringStripWS($sens[$i], 1) & "."
        EndIf
    Next
EndIf

FileWrite($update, $sString)

Actually this isn't necessarily the best solution, but I'm still not entirely sure what the input.txt will contain.

It has an error. Please fix it ! :);) Edited by kegiaumat055
BrewManNH Universalist

BrewManNH

Posted
Posted

It has an error. Please fix it ! :);)

WOW, that was incredibly rude.

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

kegiaumat055 Seeker

kegiaumat055

Posted
  • Author
Posted

What error do you get?

It works for the input you provided.

sentence1. sentence2. sentence3. sentence4. sentence5. sentence6. sentence7.

You can see an error in my attach file. Can you fix it for me, please ?

post-71902-0-26958500-1335844078_thumb.p

guinness Universalist

guinness

Posted
Posted

I agree with BrewManNH, just rude.

czardas,

I don't have a problem with your code in post #7. The output I got was

Sentence1. Sentence2. Sentence3. Sentence4.

Sentence5. Sentence6. Sentence7.

UDF List:

 
_AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples...

Updated: 22/04/2018

czardas Universalist

czardas

Posted
Posted

I agree with BrewManNH, just rude.

Perhaps it was not intentional: since the OP's mother tongue is not English. I gave him the benefit of the doubt. Thanks for testing the script. The flags in the 3rd line really ought to be BitOr'ed together, but I didn't write that part. ;)

operator64  ArrayWorkshop

kegiaumat055 Seeker

kegiaumat055

Posted
  • Author
Posted

Perhaps it was not intentional: since the OP's mother tongue is not English. I gave him the benefit of the doubt. Thanks for testing the script. The flags in the 3rd line really ought to be BitOr'ed together, but I didn't write that part. ;)

Yes, it was not intentional. My english isn't good.

I copied your code into excel, then I copy to AutoIt editor. If I copy your code directly into AutoIt editor, it will only have one line.

czardas Universalist

czardas

Posted
Posted (edited)

Okay that's a problem with the forum code tags. You should click the option where it says popup and the code appears in a new window. If you copy that and paste it directly into SciTE it should work fine.

AdmiralAlkex got there first.

Edited by czardas

operator64  ArrayWorkshop

guinness Universalist

guinness

Posted
Posted

Yes, it was not intentional. My english isn't good.

OK, understood.

UDF List:

 
_AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples...

Updated: 22/04/2018

kegiaumat055 Seeker

kegiaumat055

Posted
  • Author
Posted (edited)

I'm not sure if this is exactly what you want or not.

$open= FileOpen('input.txt', 128)
If @error Then Exit
$update=FileOpen('output.txt',128+8+1)
If @error Then Exit
$text=FileRead($open)

StringReplace($text, @CR, "")
StringReplace($text, @LF, "")
$text = StringStripWS($text, 2)

If StringRight($text, 1) = "." Then StringTrimRight($text, 1)
$sens = StringSplit($text,".",1)

$sString = ""
If $sens[0] Then $sString = $sens[1] & "."
If $sens[0] > 1 Then
    For $i = 2 To $sens[0]
        If $sens[$i] = "" Then ContinueLoop
        If random(0,2,1) Then
            $sString &= $sens[$i] & "."
        Else
            $sString &= @CRLF & StringStripWS($sens[$i], 1) & "."
        EndIf
    Next
EndIf

FileWrite($update, $sString)

Actually this isn't necessarily the best solution, but I'm still not entirely sure what the input.txt will contain.

How to add link breaks with random (between 3 to 6) sentences in a paragraph? What should I do ?

For example:

input.txt

Sentence1. Sentence2. Sentence3. Sentence4. Sentence5. Sentence6. Sentence7. Sentence8. Sentence9. Sentence10. Sentence11. Sentence12. Sentence13. Sentence14. Sentence15.

Output.txt

Sentence1. Sentence2. Sentence3. Sentence4.

Sentence5. Sentence6. Sentence7.

Sentence8. Sentence9. Sentence10. Sentence11. Sentence12.

Sentence13. Sentence14. Sentence15.

Edited by kegiaumat055

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...