[文本处理] [已解决]批处理如何获取文本每一行开头前8个汉字的拼音首字母并插入到行首位置

hlzj88

求助，文本每行前8位汉字生成拼音字头
因工作需要，有几个文本内容有误需人工更改，用于程序调用。

我已经尝试做了p，也能生成要求格式，对于不足8位汉字的，按要求应用空格补足，但我的p他会出错，以别的字母代替填充。

找不到原因。特向论坛求助，帮忙解决一下。
对比.ini的内容如下

吖A
阿A
啊A
锕A
嗄A
哎A
哀A
唉A
……COPY

无字母.txt的内容如下

鼻背缩窄术*                             HGB81301  
鼻部液体人工材料取出术*                 HGA64301  
鼻部肿物切除术*                         HGA73301  
鼻侧壁移位伴骨质充填术*                 HGB89317  
鼻唇沟皮瓣转移鼻部分再造术*             HGB89306  
鼻侧径路鼻咽肿瘤切除术*                 HGJ73303  
……COPY

处理结果如下

BBSZS   鼻背缩窄术*                             HGB81301  
BBYTRGCL鼻部液体人工材料取出术*                 HGA64301  
BBZWQCS 鼻部肿物切除术*                         HGA73301  
BCBYWBGZ鼻侧壁移位伴骨质充填术*                 HGB89317  
BCGPBZYB鼻唇沟皮瓣转移鼻部分再造术*             HGB89306  
BCJLBYZL鼻侧径路鼻咽肿瘤切除术*                 HGJ73303 COPY

文件打包如下，谢谢各位。

按需生成字母  99K

hlzj88

谢谢版主，不辞辛苦。

太忙 ，应该好好学习。

版主给的代码还不会用，见谅；

我的代码经修改可以现可以完成要求了，就是效率不高。

hlzj88

谢谢版主帮助。这两段码效率都非常高。。佩服，就是只能看懂一点，已保留用来测试对比理解。

hlzj88

4楼思路非常之妙，五楼代码无能力解读。