Notepad++ 通过记事本更改150万行的大小写++

我需要在选定的文本块列中将大小写从上到下A..Z更改为A..Z，每行的第2-33个字符，包括记事本++中的150万行。我可以选择，但只要我右键单击，小写，它就会永远挂起

有没有不同的方法来解决这个问题？ 由此：

为此：

---

150万行。

一旦您从note Notepad++选择了列模式的文本，并且可以按shift+ctrl+U->选择的文本将以大写字母显示

如果要将其改为小写，只需按Ctrl+U

我希望这会有所帮助。 如果您使用的是旧版本，请尝试使用最新版本

谢谢，

---

Thangamani Eraniyan。

一旦从note Notepad++中选择了列模式的文本，并且可以按shift+ctrl+U->选择的文本将是大写

如果要将其改为小写，只需按Ctrl+U

我希望这会有所帮助。 如果您使用的是旧版本，请尝试使用最新版本

谢谢，

---

Thangamani Eraniyan。

我刚试着用正则表达式转换，用了大约1分钟的时间转换了150万行

Ctrl+H 查找内容：^.\K.{32} 替换为：\L$0 检查环绕 检查正则表达式 不要检查。匹配新行 全部替换 说明：

替换：

---

我刚试着用正则表达式转换，1.5兆行大约需要1分钟

Ctrl+H 查找内容：^.\K.{32} 替换为：\L$0 检查环绕 检查正则表达式 不要检查。匹配新行 全部替换 说明：

替换：

我希望这会有所帮助

set fin = CreateObject("Scripting.FileSystemObject")
set fout = CreateObject("Scripting.FileSystemObject")
Set fileinput = fin.OpenTextFile("C:\Temp\TestFile\TestFile1.txt",1,1) 
Set fileoutput = fout.OpenTextFile("C:\Temp\TestFile\ResultFile.txt",2,1) 
Do Until fileinput.AtEndOfStream
    strLine = fileinput.ReadLine
    strlineout = left(strLine,1) + ucase(mid(strLine, 2, 32)) + mid(strLine,33)
    fileoutput.Write(strLine)
Loop
fileoutput.Close
fileinput.Close
fout.Close
fin.Close

Thangamani Eraniyan

我希望这会有所帮助

set fin = CreateObject("Scripting.FileSystemObject")
set fout = CreateObject("Scripting.FileSystemObject")
Set fileinput = fin.OpenTextFile("C:\Temp\TestFile\TestFile1.txt",1,1) 
Set fileoutput = fout.OpenTextFile("C:\Temp\TestFile\ResultFile.txt",2,1) 
Do Until fileinput.AtEndOfStream
    strLine = fileinput.ReadLine
    strlineout = left(strLine,1) + ucase(mid(strLine, 2, 32)) + mid(strLine,33)
    fileoutput.Write(strLine)
Loop
fileoutput.Close
fileinput.Close
fout.Close
fin.Close

---

Thangamani Eraniyan

谢谢。正如我在上面所写的，我尝试用鼠标点击在较小的数据集上完美地工作。问题是有太多的线没有完成，只是等了30分钟，我放弃了。这和问题中的海报没有什么不同。这是相同的功能。无论你是通过键盘还是鼠标右键点击上下文菜单到达目的地，这都无关紧要；这与执行的代码相同。这个答案没有任何作用。我理解，可能是由于内存容量的原因，您可能希望使用脚本（如vbscript、python或powershell）来读取每一行并将大写字母转换为所需位置，然后将其保存到其他文件中，这样会更简单、更快。如果你想我可以给你vb脚本，让我知道。谢谢-thangamani eraniyanThank你。正如我在上面所写的，我尝试用鼠标点击在较小的数据集上完美地工作。问题是有太多的线没有完成，只是等了30分钟，我放弃了。这和问题中的海报没有什么不同。这是相同的功能。无论你是通过键盘还是鼠标右键点击上下文菜单到达目的地，这都无关紧要；这与执行的代码相同。这个答案没有任何作用。我理解，可能是由于内存容量的原因，您可能希望使用脚本（如vbscript、python或powershell）来读取每一行并将大写字母转换为所需位置，然后将其保存到其他文件中，这样会更简单、更快。如果你想我可以给你vb脚本，让我知道。谢谢-thangamani eraniyanClearly它不会永远挂着，否则你仍会等待。1.5m的行是大量的文本，在列模式下进行操作会使事情变得复杂。你具体想让它完成多久？为什么要用记事本++来做？你试过用你选择的语言编写代码吗？我可以等一个小时，但不能再等了。是的，如果Npp不是一个选项，那么我猜是python。你在python中试过吗？我的问题是你试过写一些代码吗？这不是一个代码编写服务。除了使用Notepad++，你还可以尝试做一些其他的事情，然后你可以问一个关于其他事情的问题。我问的是npp内置函数中的一个错误。是的，有很多非核电站的解决方案。很明显，它不会永远存在，否则你仍然会等待。1.5m的行是大量的文本，在列模式下进行操作会使事情变得复杂。你具体想让它完成多久？为什么要用记事本++来做？你试过用你选择的语言编写代码吗？我可以等一个小时，但不能再等了。是的，如果Npp不是一个选项，那么我猜是python。你在python中试过吗？我的问题是你试过写一些代码吗？这不是一个代码编写服务。除了使用Notepad++，你还可以尝试做一些其他的事情，然后你可以问一个关于其他事情的问题。我问的是npp内置函数中的一个错误。是的，有许多非核电站解决方案。

^           : begining of line
  .         : 1 any character but newline
  \K        : forget all we have seen until this position
  .{32}     : 32 any character but newline

\L          : convert to lowercase
$0          : the whole match (ie. 32 characters after the first one)

set fin = CreateObject("Scripting.FileSystemObject")
set fout = CreateObject("Scripting.FileSystemObject")
Set fileinput = fin.OpenTextFile("C:\Temp\TestFile\TestFile1.txt",1,1) 
Set fileoutput = fout.OpenTextFile("C:\Temp\TestFile\ResultFile.txt",2,1) 
Do Until fileinput.AtEndOfStream
    strLine = fileinput.ReadLine
    strlineout = left(strLine,1) + ucase(mid(strLine, 2, 32)) + mid(strLine,33)
    fileoutput.Write(strLine)
Loop
fileoutput.Close
fileinput.Close
fout.Close
fin.Close