├── .directory ├── ClipboardTextJoiner.exe ├── ClipboardTextJoiner_WinEdition.exe ├── ClipboardTextJoiner_WinEdition_for_Chinese.exe ├── .gitattributes ├── LICENSE ├── README.md ├── ClipboardTextJoiner.pl ├── ClipboardTextJoiner_WinEdition.pl ├── ClipboardTextJoiner_WinEdition_for_Chinese.pl └── .gitignore /.directory: -------------------------------------------------------------------------------- 1 | [Dolphin] 2 | Timestamp=2015,12,28,10,56,43 3 | Version=3 4 | ViewMode=1 5 | -------------------------------------------------------------------------------- /ClipboardTextJoiner.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/shenwei356/ClipboardTextJoiner/HEAD/ClipboardTextJoiner.exe -------------------------------------------------------------------------------- /ClipboardTextJoiner_WinEdition.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/shenwei356/ClipboardTextJoiner/HEAD/ClipboardTextJoiner_WinEdition.exe -------------------------------------------------------------------------------- /ClipboardTextJoiner_WinEdition_for_Chinese.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/shenwei356/ClipboardTextJoiner/HEAD/ClipboardTextJoiner_WinEdition_for_Chinese.exe -------------------------------------------------------------------------------- /.gitattributes: -------------------------------------------------------------------------------- 1 | # Auto detect text files and perform LF normalization 2 | * text=auto 3 | 4 | # Custom for Visual Studio 5 | *.cs diff=csharp 6 | *.sln merge=union 7 | *.csproj merge=union 8 | *.vbproj merge=union 9 | *.fsproj merge=union 10 | *.dbproj merge=union 11 | 12 | # Standard to msysgit 13 | *.doc diff=astextplain 14 | *.DOC diff=astextplain 15 | *.docx diff=astextplain 16 | *.DOCX diff=astextplain 17 | *.dot diff=astextplain 18 | *.DOT diff=astextplain 19 | *.pdf diff=astextplain 20 | *.PDF diff=astextplain 21 | *.rtf diff=astextplain 22 | *.RTF diff=astextplain 23 | -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | Copyright (c) 2013 Wei Shen (shenwei356@gmail.com) 2 | 3 | The MIT License 4 | 5 | Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: 6 | 7 | The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. 8 | 9 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | ClipboardTextJoiner 2 | =================== 3 | 4 | Monitoring system clipboard change and joining multi-line text. 5 | 6 | It's very useful when copying multi-line text from PDF files. 7 | 8 | Usage 9 | ----- 10 | 11 | Just copy and paste as usual. 12 | 13 | Two editions of scripts using different clipbloard Perl modules: 14 | 15 | - ClipboardTextJoiner.pl 16 | 17 | use Clipboard; 18 | 19 | For Linux, OSX, *BSD, and Windows. 20 | 21 | However, it does not work well in Linux right now. 22 | 23 | - ClipboardTextJoiner_WinEdition.pl 24 | 25 | use Win32::Clipboard; 26 | 27 | For Windows only. 28 | 29 | Have a Try 30 | ---------- 31 | 32 | Windows user could just download the binary exe files bellow: 33 | 34 | - [ClipboardTextJoiner_WinEdition.exe](https://github.com/shenwei356/ClipboardTextJoiner/blob/master/ClipboardTextJoiner_WinEdition.exe) (Recommended) 35 | - [ClipboardTextJoiner.exe](https://github.com/shenwei356/ClipboardTextJoiner/blob/master/ClipboardTextJoiner.exe) with a little delay. 36 | 37 | 38 | Copyright (c) 2013, Wei Shen (shenwei356@gmail.com) 39 | 40 | [MIT License](https://github.com/shenwei356/ClipboardTextJoiner/blob/master/LICENSE) 41 | -------------------------------------------------------------------------------- /ClipboardTextJoiner.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/env perl 2 | use strict; 3 | use Clipboard; 4 | use Clipboard::Win32; # just for successfully compiling to exe in windows 5 | 6 | print < 14 | Home : https://github.com/shenwei356/ClipboardTextJoiner 15 | Chinese: http://blog.shenwei.me/clipboardtextjoiner/ 16 | Version: 2013-06-28 17 | 18 | =============================================================================== 19 | 20 | INFO 21 | 22 | my $head = ("-" x 31). "[ Clipboard Text ]". ("-" x 30); 23 | my $text = ''; 24 | my $last_text = ''; 25 | 26 | while (1) { 27 | $text = Clipboard->paste; 28 | if ( $text ne $last_text ) { 29 | &edit_text(\$text); 30 | Clipboard->copy($text); 31 | 32 | $text = Clipboard->paste; 33 | print "\n$head\n$text\n"; 34 | $last_text = $text; 35 | } 36 | sleep 1; 37 | } 38 | 39 | sub edit_text { 40 | my ($text) = @_; 41 | $$text =~ s/-\r?\n\s*/-/g; # for rows end with "-" 42 | $$text =~ s/([^\-])\r?\n\s*/$1 /g; # for other rows 43 | $$text =~ s/\s+/ /g; # joining multi-blanks into one blank 44 | } 45 | -------------------------------------------------------------------------------- /ClipboardTextJoiner_WinEdition.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/env perl 2 | use strict; 3 | use Win32::Clipboard; 4 | 5 | print < 13 | Home : https://github.com/shenwei356/ClipboardTextJoiner 14 | Chinese: http://blog.shenwei.me/clipboardtextjoiner/ 15 | Version: 2013-06-28 16 | 17 | =============================================================================== 18 | 19 | INFO 20 | 21 | my $head = ("-" x 31). "[ Clipboard Text ]". ("-" x 30); 22 | my $clip = Win32::Clipboard(); 23 | my $text = ''; 24 | my $handle_this_change = 1; 25 | 26 | while (1) { 27 | if ( 28 | $clip->WaitForChange() # clipboard changed 29 | and $handle_this_change # handle this change 30 | ) 31 | { 32 | next unless $clip->IsText(); # only text will be edited 33 | $text = $clip->GetText(); # get text from clipboard 34 | &edit_text(\$text); # edit text 35 | $handle_this_change = 0; # to ignore this change 36 | $clip->Set($text); # write back to clipboard 37 | } 38 | else { 39 | $text = $clip->GetText(); # show edited text 40 | print "\n$head\n$text\n"; 41 | $handle_this_change = 1; # handle next change 42 | } 43 | } 44 | 45 | sub edit_text { 46 | my ($text) = @_; 47 | $$text =~ s/-\r?\n\s*/-/g; # for rows end with "-" 48 | $$text =~ s/([^\-])\r?\n\s*/$1 /g; # for other rows 49 | $$text =~ s/\s+/ /g; # joining multi-blanks into one blank 50 | } 51 | -------------------------------------------------------------------------------- /ClipboardTextJoiner_WinEdition_for_Chinese.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/env perl 2 | use strict; 3 | use Win32::Clipboard; 4 | 5 | print < 13 | Home : https://github.com/shenwei356/ClipboardTextJoiner 14 | Chinese: http://blog.shenwei.me/clipboardtextjoiner/ 15 | Version: 2013-06-28 16 | 17 | =============================================================================== 18 | 19 | INFO 20 | 21 | my $head = ("-" x 31). "[ Clipboard Text ]". ("-" x 30); 22 | my $clip = Win32::Clipboard(); 23 | my $text = ''; 24 | my $handle_this_change = 1; 25 | 26 | while (1) { 27 | if ( 28 | $clip->WaitForChange() # clipboard changed 29 | and $handle_this_change # handle this change 30 | ) 31 | { 32 | next unless $clip->IsText(); # only text will be edited 33 | $text = $clip->GetText(); # get text from clipboard 34 | &edit_text(\$text); # edit text 35 | $handle_this_change = 0; # to ignore this change 36 | $clip->Set($text); # write back to clipboard 37 | } 38 | else { 39 | $text = $clip->GetText(); # show edited text 40 | print "\n$head\n$text\n"; 41 | $handle_this_change = 1; # handle next change 42 | } 43 | } 44 | 45 | sub edit_text { 46 | my ($text) = @_; 47 | $$text =~ s/-\r?\n\s*//g; # for rows end with "-" 48 | $$text =~ s/([^\-])\r?\n\s*/$1/g; # for other rows 49 | $$text =~ s/\s+//g; # joining multi-blanks into one blank 50 | } 51 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | ################# 2 | ## Eclipse 3 | ################# 4 | 5 | *.pydevproject 6 | .project 7 | .metadata 8 | bin/ 9 | tmp/ 10 | *.tmp 11 | *.bak 12 | *.swp 13 | *~.nib 14 | local.properties 15 | .classpath 16 | .settings/ 17 | .loadpath 18 | 19 | # External tool builders 20 | .externalToolBuilders/ 21 | 22 | # Locally stored "Eclipse launch configurations" 23 | *.launch 24 | 25 | # CDT-specific 26 | .cproject 27 | 28 | # PDT-specific 29 | .buildpath 30 | 31 | 32 | ################# 33 | ## Visual Studio 34 | ################# 35 | 36 | ## Ignore Visual Studio temporary files, build results, and 37 | ## files generated by popular Visual Studio add-ons. 38 | 39 | # User-specific files 40 | *.suo 41 | *.user 42 | *.sln.docstates 43 | 44 | # Build results 45 | 46 | [Dd]ebug/ 47 | [Rr]elease/ 48 | x64/ 49 | build/ 50 | [Bb]in/ 51 | [Oo]bj/ 52 | 53 | # MSTest test Results 54 | [Tt]est[Rr]esult*/ 55 | [Bb]uild[Ll]og.* 56 | 57 | *_i.c 58 | *_p.c 59 | *.ilk 60 | *.meta 61 | *.obj 62 | *.pch 63 | *.pdb 64 | *.pgc 65 | *.pgd 66 | *.rsp 67 | *.sbr 68 | *.tlb 69 | *.tli 70 | *.tlh 71 | *.tmp 72 | *.tmp_proj 73 | *.log 74 | *.vspscc 75 | *.vssscc 76 | .builds 77 | *.pidb 78 | *.log 79 | *.scc 80 | 81 | # Visual C++ cache files 82 | ipch/ 83 | *.aps 84 | *.ncb 85 | *.opensdf 86 | *.sdf 87 | *.cachefile 88 | 89 | # Visual Studio profiler 90 | *.psess 91 | *.vsp 92 | *.vspx 93 | 94 | # Guidance Automation Toolkit 95 | *.gpState 96 | 97 | # ReSharper is a .NET coding add-in 98 | _ReSharper*/ 99 | *.[Rr]e[Ss]harper 100 | 101 | # TeamCity is a build add-in 102 | _TeamCity* 103 | 104 | # DotCover is a Code Coverage Tool 105 | *.dotCover 106 | 107 | # NCrunch 108 | *.ncrunch* 109 | .*crunch*.local.xml 110 | 111 | # Installshield output folder 112 | [Ee]xpress/ 113 | 114 | # DocProject is a documentation generator add-in 115 | DocProject/buildhelp/ 116 | DocProject/Help/*.HxT 117 | DocProject/Help/*.HxC 118 | DocProject/Help/*.hhc 119 | DocProject/Help/*.hhk 120 | DocProject/Help/*.hhp 121 | DocProject/Help/Html2 122 | DocProject/Help/html 123 | 124 | # Click-Once directory 125 | publish/ 126 | 127 | # Publish Web Output 128 | *.Publish.xml 129 | *.pubxml 130 | 131 | # NuGet Packages Directory 132 | ## TODO: If you have NuGet Package Restore enabled, uncomment the next line 133 | #packages/ 134 | 135 | # Windows Azure Build Output 136 | csx 137 | *.build.csdef 138 | 139 | # Windows Store app package directory 140 | AppPackages/ 141 | 142 | # Others 143 | sql/ 144 | *.Cache 145 | ClientBin/ 146 | [Ss]tyle[Cc]op.* 147 | ~$* 148 | *~ 149 | *.dbmdl 150 | *.[Pp]ublish.xml 151 | *.pfx 152 | *.publishsettings 153 | 154 | # RIA/Silverlight projects 155 | Generated_Code/ 156 | 157 | # Backup & report files from converting an old project file to a newer 158 | # Visual Studio version. Backup files are not needed, because we have git ;-) 159 | _UpgradeReport_Files/ 160 | Backup*/ 161 | UpgradeLog*.XML 162 | UpgradeLog*.htm 163 | 164 | # SQL Server files 165 | App_Data/*.mdf 166 | App_Data/*.ldf 167 | 168 | ############# 169 | ## Windows detritus 170 | ############# 171 | 172 | # Windows image file caches 173 | Thumbs.db 174 | ehthumbs.db 175 | 176 | # Folder config file 177 | Desktop.ini 178 | 179 | # Recycle Bin used on file shares 180 | $RECYCLE.BIN/ 181 | 182 | # Mac crap 183 | .DS_Store 184 | 185 | 186 | ############# 187 | ## Python 188 | ############# 189 | 190 | *.py[co] 191 | 192 | # Packages 193 | *.egg 194 | *.egg-info 195 | dist/ 196 | build/ 197 | eggs/ 198 | parts/ 199 | var/ 200 | sdist/ 201 | develop-eggs/ 202 | .installed.cfg 203 | 204 | # Installer logs 205 | pip-log.txt 206 | 207 | # Unit test / coverage reports 208 | .coverage 209 | .tox 210 | 211 | #Translations 212 | *.mo 213 | 214 | #Mr Developer 215 | .mr.developer.cfg 216 | --------------------------------------------------------------------------------