问答区某同学求问的谷歌翻译

止戈为武

原贴：大佬们帮忙看下这个文本怎么取出 我取的都是重复了
@aa8045 ，快回来，别用我回答的那个了，那个是错的，中午要去食堂吃饭比较急没仔细看，去晚了没饭了。下午没事瞎逛论坛突然又看到你采纳了，再仔细一看觉得不对的，那个还是会取到重复的。你参考下面这个吧，这个是我刚才写的较完美的。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮_翻译_被单击

变量名	类 型	静态	数组	备 注
提交地址	文本型
提交信息	文本型
返回文本	文本型
每条	文本型		0
计次	整数型

提交信息 ＝ 编辑框1.内容
' 以下替换易出错字符，尤其是引号、左引号、右引号，容易出
' 现引号后面不会被翻译的问题，这是谷歌的问题，不是易语言
' 或模块问题，即便手动去网页翻译依然如此，后期如果再发现
' 什么字符容易出问题，可以在这里添加。结尾替换即可。
提交信息 ＝ 子文本替换 (提交信息, “/”, “j1ltxgj1lt”, , , 真)
提交信息 ＝ 子文本替换 (提交信息, “null”, “j1ltnullj1lt”, , , 真)
提交信息 ＝ 子文本替换 (提交信息, “true”, “j1lttruej1lt”, , , 真)
提交信息 ＝ 子文本替换 (提交信息, “,[”, “j1ltdkj1lt”, , , 真)
提交信息 ＝ 子文本替换 (提交信息, #引号, “j1ltyhj1lt”, , , 真)
提交信息 ＝ 子文本替换 (提交信息, #左引号, “j1ltyhj1lt”, , , 真)
提交信息 ＝ 子文本替换 (提交信息, #右引号, “j1ltyhj1lt”, , , 真)
提交信息 ＝ 子文本替换 (提交信息, #换行符, “j1lthhfj1lt”, , , 真)
' -----------------------------------------------------------------
提交信息 ＝ “f.req=” ＋ 编码_URL编码 ( #中转英头 ＋ 提交信息 ＋ #中转英尾, , 真)
提交地址 ＝ “https://translate.google.cn/_/Tr ... rpcids=MkEWBc&f.sid”
返回文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (提交地址, 1, 提交信息, , , , , , , , , , , , , , , , )))
' 我提交的：你好吗？我很好
' 以下是返回的
' )]}'
' [["wrb.fr","MkEWBc","[[\"Nǐ hǎo ma? Wǒ hěn hǎo\",null,\"zh-CN\",[[[0,[[[null,4]],[true]]]],7],[[\"你好吗？\",null,null,4],[\"我很好\",null,4,7]]],[[[null,null,null,null,null,[[\"Are you OK?\",null,null,null,[[\"Are you OK?\",[4]],[\"How are you?\",[4,5]],[\"How do you?\",[11]]]],[\"I'm very good\",null,true,null,[[\"I'm very good\",[2]],[\"I'm fine\",[2,5]],[\"I am fine\",[4]],[\"I am very nice\",[11]]]]]]],\"en\",1,\"zh-CN\",[\"你好吗？我很好\",\"auto\",\"en\",true]],\"zh-CN\"]",null,null,null,"generic"],["di",27],["af.httprm",26,"-8452384556758086659"]]
' 观察上面返回信息可得知，提交后会自动断句，每句翻译几次不等。但是每句翻译不管多少次，总有一次后面带 ,null、,true 这类字符，所以可以从这入手取不重复的
返回文本 ＝ 文本_取出中间文本 (返回文本, #结果头, #结果尾 )
加入成员 (每条, 分割文本 (返回文本, “,[”, ))
返回文本 ＝ “”
计次循环首 (取数组成员数 (每条), 计次)
如果真 (寻找文本 (每条 [计次], “null”, , 假) ≠ -1 或 寻找文本 (每条 [计次], “true”, , 假) ≠ -1)
返回文本 ＝ 返回文本 ＋ 文本_取出中间文本 (每条 [计次], “\” ＋ #引号, “\” ＋ #引号, , )

计次循环尾 ()
' 以下处理开头被替换的易出错字符
返回文本 ＝ 子文本替换 (返回文本, “j1ltxgj1lt”, “/”, , , 真)
返回文本 ＝ 子文本替换 (返回文本, “j1ltnullj1lt”, “null”, , , 真)
返回文本 ＝ 子文本替换 (返回文本, “j1lttruej1lt”, “true”, , , 真)
返回文本 ＝ 子文本替换 (返回文本, “j1ltdkj1lt”, “,[”, , , 真)
返回文本 ＝ 子文本替换 (返回文本, “j1ltyhj1lt”, #引号, , , 真)
返回文本 ＝ 子文本替换 (返回文本, “j1ltyhj1lt”, #左引号, , , 真)
返回文本 ＝ 子文本替换 (返回文本, “j1ltyhj1lt”, #右引号, , , 真)
返回文本 ＝ 子文本替换 (返回文本, “j1lthhfj1lt”, #换行符, , , 真)
' ---------------------------------------------------------------------
编辑框2.内容 ＝ 返回文本

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮_翻译_被单击<br /> .局部变量 提交地址, 文本型<br /> .局部变量 提交信息, 文本型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 每条, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> <br /> 提交信息 ＝ 编辑框1.内容<br /> <br /> ' 以下替换易出错字符，尤其是引号、左引号、右引号，容易出<br /> ' 现引号后面不会被翻译的问题，这是谷歌的问题，不是易语言<br /> ' 或模块问题，即便手动去网页翻译依然如此，后期如果再发现<br /> ' 什么字符容易出问题，可以在这里添加。结尾替换即可。<br /> 提交信息 ＝ 子文本替换 (提交信息, “/”, “j1ltxgj1lt”, , , 真)<br /> 提交信息 ＝ 子文本替换 (提交信息, “null”, “j1ltnullj1lt”, , , 真)<br /> 提交信息 ＝ 子文本替换 (提交信息, “true”, “j1lttruej1lt”, , , 真)<br /> 提交信息 ＝ 子文本替换 (提交信息, “,[”, “j1ltdkj1lt”, , , 真)<br /> 提交信息 ＝ 子文本替换 (提交信息, #引号, “j1ltyhj1lt”, , , 真)<br /> 提交信息 ＝ 子文本替换 (提交信息, #左引号, “j1ltyhj1lt”, , , 真)<br /> 提交信息 ＝ 子文本替换 (提交信息, #右引号, “j1ltyhj1lt”, , , 真)<br /> 提交信息 ＝ 子文本替换 (提交信息, #换行符, “j1lthhfj1lt”, , , 真)<br /> ' -----------------------------------------------------------------<br /> <br /> 提交信息 ＝ “f.req=” ＋ 编码_URL编码 (#中转英头 ＋ 提交信息 ＋ #中转英尾, , 真)<br /> 提交地址 ＝ “https://translate.google.cn/_/Tr ... rpcids=MkEWBc&f.sid”<br /> 返回文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (提交地址, 1, 提交信息, , , , , , , , , , , , , , , , )))<br /> <br /> <br /> ' 我提交的：你好吗？我很好<br /> ' 以下是返回的<br /> ' )]}'<br /> ' [["wrb.fr","MkEWBc","[[\"Nǐ hǎo ma? Wǒ hěn hǎo\",null,\"zh-CN\",[[[0,[[[null,4]],[true]]]],7],[[\"你好吗？\",null,null,4],[\"我很好\",null,4,7]]],[[[null,null,null,null,null,[[\"Are you OK?\",null,null,null,[[\"Are you OK?\",[4]],[\"How are you?\",[4,5]],[\"How do you?\",[11]]]],[\"I'm very good\",null,true,null,[[\"I'm very good\",[2]],[\"I'm fine\",[2,5]],[\"I am fine\",[4]],[\"I am very nice\",[11]]]]]]],\"en\",1,\"zh-CN\",[\"你好吗？我很好\",\"auto\",\"en\",true]],\"zh-CN\"]",null,null,null,"generic"],["di",27],["af.httprm",26,"-8452384556758086659"]]<br /> ' 观察上面返回信息可得知，提交后会自动断句，每句翻译几次不等。但是每句翻译不管多少次，总有一次后面带 ,null、,true 这类字符，所以可以从这入手取不重复的<br /> <br /> <br /> 返回文本 ＝ 文本_取出中间文本 (返回文本, #结果头, #结果尾)<br /> 加入成员 (每条, 分割文本 (返回文本, “,[”, ))<br /> 返回文本 ＝ “”<br /> .计次循环首 (取数组成员数 (每条), 计次)<br />     .如果真 (寻找文本 (每条 [计次], “null”, , 假) ≠ -1 或 寻找文本 (每条 [计次], “true”, , 假) ≠ -1)<br />         返回文本 ＝ 返回文本 ＋ 文本_取出中间文本 (每条 [计次], “\” ＋ #引号, “\” ＋ #引号, , )<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> ' 以下处理开头被替换的易出错字符<br /> 返回文本 ＝ 子文本替换 (返回文本, “j1ltxgj1lt”, “/”, , , 真)<br /> 返回文本 ＝ 子文本替换 (返回文本, “j1ltnullj1lt”, “null”, , , 真)<br /> 返回文本 ＝ 子文本替换 (返回文本, “j1lttruej1lt”, “true”, , , 真)<br /> 返回文本 ＝ 子文本替换 (返回文本, “j1ltdkj1lt”, “,[”, , , 真)<br /> 返回文本 ＝ 子文本替换 (返回文本, “j1ltyhj1lt”, #引号, , , 真)<br /> 返回文本 ＝ 子文本替换 (返回文本, “j1ltyhj1lt”, #左引号, , , 真)<br /> 返回文本 ＝ 子文本替换 (返回文本, “j1ltyhj1lt”, #右引号, , , 真)<br /> 返回文本 ＝ 子文本替换 (返回文本, “j1lthhfj1lt”, #换行符, , , 真)<br /> ' ---------------------------------------------------------------------<br /> <br /> <br /> 编辑框2.内容 ＝ 返回文本

谷歌翻译（英文）.e (913.61 KB, 下载次数: 33)

2022-7-10 16:05 上传

点击文件名下载附件

yingle

支持开源~！感谢分享

敷敷衍衍小生活

#在这里快速回复#  新技能已get√√

元老

易路前行 发表于 2022-7-10 16:50
能访问到谷歌的页面吗？好像不可以吧

谷歌翻译没被墙

易路前行

能访问到谷歌的页面吗？好像不可以吧

止戈为武

@aa8045 还有个思路，就是提交前，直接给要提交的数据 里面的 断句符 替换成特定字段，结尾再替换回来，这样他应该只会返回一条重复数次的信息了。然后文本_取中间 的结尾用 \",null 或 \",true 来取就行了，也就不用循环命令了，效率更高一些。
（比如句号、感叹号、问号之类的，不过这样比较麻烦，得自己慢慢去试谷歌都会把哪些字符判定为断句符）