AutoHotkey Community

Code: Select all

FileRead,Var,Testing.ahk
Loop  
 {
  StringReplace, Var, Var, `r`n`r`n, `r`n, UseErrorLevel
  if ErrorLevel = 0  ; No more replacements needed.
   break
 }

Code: Select all

var =
(
The Egyptian pyramids are ancient pyramid-shaped masonry structures located in Egypt.

There are 138 pyramids discovered in Egypt as of 2008.[1][2] Most were built as tombs for the country's Pharaohs and their consorts during the Old and Middle Kingdom periods.[3][4][5]

The earliest known Egyptian pyramids are found at Saqqara, northwest of Memphis. The earliest among these is the Pyramid of Djoser (constructed 2630 BC–2611 BC) which was built during the third dynasty. This pyramid and its surrounding complex were designed by the architect Imhotep, and are generally considered to be the world's oldest monumental structures constructed of dressed masonry.[6] The estimate of the number of workers to build the pyramids range from a few thousand, twenty thousand, and up to 100,000

  
  
 

The most famous Egyptian pyramids are those found at Giza, on the outskirts of Cairo. Several of the Giza pyramids are counted among the largest structures ever built.[9] The Pyramid of Khufu at Giza is the largest Egyptian pyramid. It is the only one of the Seven Wonders of the Ancient World still in existence.
  
By the time of the early dynastic period of Egyptian history, those with sufficient means were buried in bench-like structures known as mastabas.[10][11]

The second historically documented Egyptian pyramid is attributed to the architect Imhotep, who planned what Egyptologists believe to be a tomb for the pharaoh Djoser. Imhotep is credited with being the first to conceive the notion of stacking mastabas on top of each other – creating an edifice composed of a number of "steps" that decreased in size towards its apex. The result was the Step Pyramid of Djoser – which was designed to serve as a gigantic stairway by which the soul of the deceased pharaoh could ascend to the heavens. Such was the importance of Imhotep's achievement that he was deified by later Egyptians
)

Loop  
 {
  StringReplace, Var, Var, `r`n`r`n, `r`n, UseErrorLevel
  if ErrorLevel = 0  ; No more replacements needed.
   break
 }
 
 MsgBox % var
 

Code: Select all

var =
(
The Egyptian pyramids are ancient pyramid-shaped masonry structures located in Egypt.

There are 138 pyramids discovered in Egypt as of 2008.[1][2] Most were built as tombs for the country's Pharaohs and their consorts during the Old and Middle Kingdom periods.[3][4][5]

The earliest known Egyptian pyramids are found at Saqqara, northwest of Memphis. The earliest among these is the Pyramid of Djoser (constructed 2630 BC–2611 BC) which was built during the third dynasty. This pyramid and its surrounding complex were designed by the architect Imhotep, and are generally considered to be the world's oldest monumental structures constructed of dressed masonry.[6] The estimate of the number of workers to build the pyramids range from a few thousand, twenty thousand, and up to 100,000

  
  
 

The most famous Egyptian pyramids are those found at Giza, on the outskirts of Cairo. Several of the Giza pyramids are counted among the largest structures ever built.[9] The Pyramid of Khufu at Giza is the largest Egyptian pyramid. It is the only one of the Seven Wonders of the Ancient World still in existence.
  
By the time of the early dynastic period of Egyptian history, those with sufficient means were buried in bench-like structures known as mastabas.[10][11]

The second historically documented Egyptian pyramid is attributed to the architect Imhotep, who planned what Egyptologists believe to be a tomb for the pharaoh Djoser. Imhotep is credited with being the first to conceive the notion of stacking mastabas on top of each other – creating an edifice composed of a number of "steps" that decreased in size towards its apex. The result was the Step Pyramid of Djoser – which was designed to serve as a gigantic stairway by which the soul of the deceased pharaoh could ascend to the heavens. Such was the importance of Imhotep's achievement that he was deified by later Egyptians
)



Loop, Parse, Var,`n, 
 {
  if A_LoopField <> 
	var2 := (var2 "`n" A_loopfield )
}
MsgBox % var2 

Code: Select all

string=
(
The Egyptian pyramids are ancient pyramid-shaped masonry structures located in Egypt.

There are 138 pyramids discovered in Egypt as of 2008.[1][2] Most were built as tombs for the country's Pharaohs and their consorts during the Old and Middle Kingdom periods.[3][4][5]

The earliest known Egyptian pyramids are found at Saqqara, northwest of Memphis. The earliest among these is the Pyramid of Djoser (constructed 2630 BC–2611 BC) which was built during the third dynasty. This pyramid and its surrounding complex were designed by the architect Imhotep, and are generally considered to be the world's oldest monumental structures constructed of dressed masonry.[6] The estimate of the number of workers to build the pyramids range from a few thousand, twenty thousand, and up to 100,000

  
  
 

The most famous Egyptian pyramids are those found at Giza, on the outskirts of Cairo. Several of the Giza pyramids are counted among the largest structures ever built.[9] The Pyramid of Khufu at Giza is the largest Egyptian pyramid. It is the only one of the Seven Wonders of the Ancient World still in existence.
  
By the time of the early dynastic period of Egyptian history, those with sufficient means were buried in bench-like structures known as mastabas.[10][11]

The second historically documented Egyptian pyramid is attributed to the architect Imhotep, who planned what Egyptologists believe to be a tomb for the pharaoh Djoser. Imhotep is credited with being the first to conceive the notion of stacking mastabas on top of each other – creating an edifice composed of a number of "steps" that decreased in size towards its apex. The result was the Step Pyramid of Djoser – which was designed to serve as a gigantic stairway by which the soul of the deceased pharaoh could ascend to the heavens. Such was the importance of Imhotep's achievement that he was deified by later Egyptians
)

newstring := RegExReplace(string, "\v+", "`n")
msgbox % newstring
return

Code: Select all

var := RegExReplace(var, "(^\s*|\s*$)") 

Code: Select all

var =
(
                 The Egyptian pyramids are ancient pyramid-shaped 

   There are 138 pyramids discovered in Egypt as of 2008.[1][2] 

      The earliest known Egyptian pyramids are found at Saqqara,

  
  
 

          The most famous Egyptian pyramids are those found at Giza
  
   By the time of the early dynastic period of Egyptian history

  The second historically documented Egyptian pyramid is attributed
)

var := RegExReplace(var, "\v+", "`n")
var := RegExReplace(var, "(^|\r?\n)\K(\s*\r?\n)+")

sort, var
MsgBox % var

Code: Select all

var =
(RTrim0
                 The Egyptian pyramids are ancient pyramid-shaped

   There are 138 pyramids discovered in Egypt as of 2008.[1][2]

      The earliest known Egyptian pyramids are found at Saqqara,

 
 
 

          The most famous Egyptian pyramids are those found at Giza
 
   By the time of the early dynastic period of Egyptian history

  The second historically documented Egyptian pyramid is attributed
)

var := RegExReplace(var, "(^|\r?\n)\K(\s*\r?\n?)+")

Sort, var
MsgBox % var

Code: Select all

var := RegExReplace(var,"`am)^\s$")

Code: Select all

var := RegExReplace(var,"`am)^\s+")
var := RegExReplace(var, "(^\s*|\s*$)")

Code: Select all

t=
(

  one
  
t w o   

   three
   
)
t := RegExReplace(t, "^\s+|\s*(\R|$)\s*", "$1")

Loop Parse, t, `n
    s .= "|" A_LoopField "|`n"
MsgBox % s

Code: Select all

t := RegExReplace(t, "`am)^\s+|\h+$|\R\z")

Code: Select all

;========== MSGBOXx Editx 2ndGUIx ===========================
;- shows result in a big screen editfieldx ------------------
;- regex example to remove blank lines
;-http://ahkscript.org/boards/viewtopic.php?f=5&t=4810

/*
preselect:=a_desktop
FileSelectFile, F1,1,%preselect%,Select your file,*.txt;*.bas
if F1 =
   return
Fileread,string,%f1%
*/

;/*
string=
(

             Line1

Line2

Line3

)
;*/

;- regex to remove blank lines ---------
e4x := RegExReplace(string, "`am)^\s+|\h+$|\R\z")

;- show this result in a "big-msgbox" (Edit)
gosub,msgbox2
msgbox, 262208, ,%e4x%
return
;-------------------------------------------------------------

;-------------------------------------------------------------
Msgbox2:
WA=%A_screenwidth%
HA=%A_screenheight%
H1 :=(HA*95)/100
W1 :=(WA*99)/100
EH1:=(HA*94)/100
EW1:=(WA*98)/100

#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%
Gui,2:default
GUI,2:+AlwaysOnTop
;- colorsx colorx --
edcol1=black
edcol2=yellow
c0=D4D0C8  ;- gray normal msgbox
c1=000000  ;- black
c2=FFE07B
c3=E2C577
c4=CEB88A  ;-brown
c5=D5E66D  ;-yellow
c6=BFBFBF  ;-gray

Gui,2: Color, ControlColor,%c1%
Gui,2: Font, CDefault, FixedSys

Name2=MSGBOX-2
Gui,2:add,Edit,   x10  y10 c%edcol2% h%eh1% w%ew1%  -wrap hscroll,%e4x%
Gui,2:show,x1 y1 h%h1% w%w1%,%name2%
Send,^{end}
Send,{enter}
return

2Guiclose:
exitapp
;======================== end script ==========================