学习填词作词——建立自己的韵母押韵库

建立自己的韵母库，整理自己喜欢的歌曲的歌词韵母。

代码放在另一篇。2个代码  getym是出韵母的，getyj是直接出韵脚，我按照14辙标了序号。 任君选用

图片发自App

举个例子，我整理手机音乐盒的歌曲，把歌名按照韵脚整理。（这一步可以不做）

第一步：整理歌词 每个韵脚为一行

以女神作词的 风起天阑 这首歌为例

百度出歌词：

城破时天边正残月

那一眼你笑如昙花 转眼凋谢

血色的风把旗撕裂

城头的灯终于熄灭

看不到你头颅高悬 眼神轻蔑

焚成灰的蝴蝶 断了根的枝叶

挣脱眼眶前冻结的悲切

鲜血流过长街 耳畔杀伐不歇

守护的城阙大雨中呜咽

多年后史书页 还把这夜撰写

青石长阶 染尽生离死别

耳闻的像终结 眼见的都毁灭

温柔的最决绝 坠落的曾摇曳

恍然间已诀别 正褪色的长夜

破晓之前 洗去所有罪孽

有人喊你名字 直到声嘶力竭

若魂魄能知觉 黄泉下不忘却

不记得阴晴或圆缺

我看过花开和花谢

渐渐地回忆起喜悦 与恨有别

王城的姓氏都改写

我还在这里守着夜

等什么从灰烬里面 破茧成蝶

是命运在轮回 熟悉得像幻觉

火烧破天空星辰都倾泻

马蹄踏碎落叶 四方边角不绝

血滚落尘土像那瞬艳烈

太遥远的岁月 看不清的眉睫

回忆尽头 风声依旧凛冽

埋下的骨和血 早沉没在黑夜

逝去的已冰冷 飘零的未了结

记得城中日月 蝉鸣后又初雪

屋檐细雨 停在初见季节

用最平淡话语 藏住旧日誓约

春风绿过柳叶 你曾笑得无邪

太遥远的岁月 看不清的眉睫

回忆尽头 风声依旧凛冽

埋下的骨和血 早沉没在黑夜

逝去的已冰冷 飘零的未了结

记得城中日月 蝉鸣后又初雪

屋檐细雨 停在初见季节

用最平淡话语 藏住旧日誓约

春风绿过柳叶 你曾笑得无邪

逆风穿越荒野 来不及去告别

破晓之前 忘记所有胆怯

从此用我双眼 替你看这世界

云万里山千叠 天尽头城不夜

依稀是旧时节 城门上下弦月

白色身影 夜色如水清冽

借我一刻光阴 把你看得真切

身后花开成雪 月光里不凋谢

可以看到 两小句之间有空格符，或者有其他符号，都需要整理。

粘贴到word 选择  替换  空格 替换为 回车号

注意：调整后歌词一句为一行

无标点符号

并且删掉重复的段落

第二步：excel整理出韵脚

把整理完的文本粘贴到excel表格中。

如图 用  =RIGHT(A1,2)    每句歌词的最后两个字

=RIGHT(A1)  每句最后一个字。

第三步：Visual Basic编辑状态下粘贴代码

按“Alt+F11”组合键，进入Visual Basic编辑状态

office16版的 在左下角sheet1 那里点击右键  点击查看代码

其它版本，网上搜怎么打开excel的visual basic.

点击菜单栏中插入 模块

将代码粘贴进模块，以下代码是我改编的，虽然看不懂……

来自百度经验 如何把汉字转拼音

http://jingyan.baidu.com/article/22a299b5c006aa9e19376a29.html

我将里面的拼音代码改了两种

1.韵母代码，调用的名称改为getym 出来是韵母uan an ian等

2. 14辙韵脚代码，调用名称改为getyj 出来直接是韵脚 分为14种 1 a  2o 等

将其中一个代码粘贴到编辑器中

代码太大，附最后

粘贴完成后，关闭模块。

VB编辑器中点击菜单栏中第一列 文件，选择 关闭并返回到excel。

第四步：调用代码

输入  =getym(C1)

回车就会出现韵脚字的韵母了。

拖动单元格右下角到整个列，可以得到一首歌的韵母

个别字不识别，需要自己修改下。

第五步：建立歌词库

多整理自己喜欢的歌，批量整理。

可以列表中增加曲风，词性等标注。便于以后填词

对韵母那一列进行升序排列，相同韵脚的歌词就会在一起。

多整理些歌曲，可以选词进行填词。

************************************************************************************

如果文章有用并且提高您的效率，请点击喜欢或者关注我。

后续文章：懒人做饭、整理收纳、好物使用感受、干眼症的治愈分享、

水彩、国画学习者、吉他弹唱学习者、学习填词中……

有一颗文艺心的理工身，爱好超广，尤其喜欢研究各个领域提升效率的方法；各种实用的方法推荐

只写干货。

目前干眼症初愈的巩固期……护眼为主，更新较慢。

谢谢支持。