Project1

标题: TXT歌词文件拆分 [打印本页]

---

作者: chd114    时间: 2013-12-15 04:47
标题: TXT歌词文件拆分

1. def lrckill
   
2. #$lrc=load_data("Data/Gtlrc.rxdata").to_s
   
3. $lrc=File.open ("文件名称.txt").readlines.to_s
   
4. $lrctime=[]#时间轴
   
5. $lrcword=[]#歌词
   
6. $lrcwords=[]#带#分割的歌词
   
7. (0...$lrc.split("[").size).each{|i|$lrctime[i]=""}
   
8. (0...$lrc.split("]").size).each{|i|$lrcword[i]=""}
   
9. (0...$lrc.split("]").size).each{|i|$lrcwords[i]=""}
   
10. $lrcsize=$lrc.split("[").size
    
11. for i in 1...$lrcsize
    
12. $lrc1=$lrc.split("[")[i].to_s
    
13. $lrc2=$lrc1.split("]")[0].to_s
    
14. $lrctime[i]="["+$lrc2.split("]")[0].to_s+"]"
    
15. $lrcword[i]=$lrc1.split("]")[1].to_s
    
16. $lrcwords[i]="#"+$lrc1.split("]")[1].to_s
    
17. end
    
18. file=File.new('lrctime.txt','w')
    
19. file.puts($lrctime)
    
20. save_data($lrctime,"Data/lrctime.rxdata")
    
21. 
    
22. file=File.new('lrcword.txt','w')
    
23. file.puts($lrcword)
    
24. save_data($lrcword,"Data/lrcword.rxdata")
    
25. 
    
26. file=File.new('lrcwords.txt','w')
    
27. file.puts($lrcwords)
    
28. save_data($lrcwords,"Data/lrcwords.rxdata")
    
29. end

复制代码

---

作者: 无脑之人    时间: 2013-12-15 10:10
我们呼唤正则表达式

---

作者: fux2    时间: 2013-12-15 16:37
看到这玩意真怀念啊，我以前也写过一个。

RUBY 代码复制

class String
  @@MultiByteToWideChar  = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
  @@WideCharToMultiByte  = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
  def s2u
    i = @@MultiByteToWideChar.call(0, 0, self, -1, nil, 0)
    buffer = "\0" * (i*2)
    @@MultiByteToWideChar.call(0, 0, self, -1, buffer, buffer.size / 2)
    i = @@WideCharToMultiByte.call(65001, 0, buffer, -1, nil, 0, nil, nil)
    result = "\0" * i
    @@WideCharToMultiByte.call(65001, 0, buffer, -1, result, result.size, nil, nil)
    result.chop!
    return result
  end
end
 
class Lrc
 
  Terms = ["歌名:","歌手:","专辑:","制作:"]
 
  attr_accessor :title
  attr_accessor :singer
  attr_accessor :album
  attr_accessor :timeline
  attr_accessor :contents
  attr_accessor :author
 
  def initialize(filename)
    self.load(filename)
  end
 
  def load(filename)
    ori_lrc = File.open(filename,"r").read
    @timeline = ori_lrc.scan(/(?<=\[)\d{2}:\d{2}:\d{2}(?=\])/)
    @contents = ori_lrc.scan(/(?<=\d\])[^\[\]]*(?=\n)/).map{|l| l.s2u}
    @title = $1.s2u if ori_lrc[/\bti:(.+)\b/]
    @singer = $1.s2u if ori_lrc[/\bar:(.+)\b/]
    @album = $1.s2u if ori_lrc[/\bal:(.+)\b/]
    @author = $1.s2u if ori_lrc[/\bby:(.+)\b/]
  end
 
  def to_s
    ret = ""
    ret += Terms[0]+@title+"\n" if @title
    ret += Terms[1]+@singer+"\n" if @singer
    ret += Terms[2]+@album+"\n" if @album
    ret += Terms[3]+@author+"\n" if @author
    @contents.each{|l| ret += l+"\n"}
    return ret
  end
 
end
 
a = Lrc.new("1.lrc")
File.open("lrc.txt","w"){|file| file<<a.to_s}
p a.to_s
msgbox a.to_s if defined?(msgbox)
exit

class String


  @@MultiByteToWideChar  = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')


  @@WideCharToMultiByte  = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')


  def s2u


    i = @@MultiByteToWideChar.call(0, 0, self, -1, nil, 0)


    buffer = "\0" * (i*2)


    @@MultiByteToWideChar.call(0, 0, self, -1, buffer, buffer.size / 2)


    i = @@WideCharToMultiByte.call(65001, 0, buffer, -1, nil, 0, nil, nil)


    result = "\0" * i


    @@WideCharToMultiByte.call(65001, 0, buffer, -1, result, result.size, nil, nil)


    result.chop!


    return result


  end


end


 


class Lrc


 


  Terms = ["歌名:","歌手:","专辑:","制作:"]


 


  attr_accessor :title


  attr_accessor :singer


  attr_accessor :album


  attr_accessor :timeline


  attr_accessor :contents


  attr_accessor :author


 


  def initialize(filename)


    self.load(filename)


  end


 


  def load(filename)


    ori_lrc = File.open(filename,"r").read


    @timeline = ori_lrc.scan(/(?<=\[)\d{2}:\d{2}:\d{2}(?=\])/)


    @contents = ori_lrc.scan(/(?<=\d\])[^\[\]]*(?=\n)/).map{|l| l.s2u}


    @title = $1.s2u if ori_lrc[/\bti:(.+)\b/]


    @singer = $1.s2u if ori_lrc[/\bar:(.+)\b/]


    @album = $1.s2u if ori_lrc[/\bal:(.+)\b/]


    @author = $1.s2u if ori_lrc[/\bby:(.+)\b/]


  end


 


  def to_s


    ret = ""


    ret += Terms[0]+@title+"\n" if @title


    ret += Terms[1]+@singer+"\n" if @singer


    ret += Terms[2]+@album+"\n" if @album


    ret += Terms[3]+@author+"\n" if @author


    @contents.each{|l| ret += l+"\n"}


    return ret


  end


 


end


 


a = Lrc.new("1.lrc")


File.open("lrc.txt","w"){|file| file<<a.to_s}


p a.to_s


msgbox a.to_s if defined?(msgbox)


exit

---

作者: chd114    时间: 2013-12-16 14:56

fux2 发表于 2013-12-15 16:37
看到这玩意真怀念啊，我以前也写过一个。
class String
  @@MultiByteToWideChar  = Win32API.new('kernel3 ...

话说你是想让我抓虫吗···

---

欢迎光临 Project1 (https://rpg.blue/)

Powered by Discuz! X3.1