制作刷单用提词器

GIF.gif

从文字中获取收益最直接的方式莫过于找到一个写手组织，然后批量地刷单了。
然而，刷单是个非常枯燥的活儿，它不同于自己随心所欲写东西，对字数的严格要求，格式的要求等等，当然能接到一些高级文案类的活儿会好一点，无奈文字基础有些差，于是，就想和自己稍微擅长一点的方式挂钩。
用代码做一个提词器，这是这段时间萌生的念头，当然本人的编程技术也不是很好，属于东一榔头，西一棒槌的野路子，只是单纯从兴趣角度出发而学的。
所以VBA技术一直只在初级水平阶段徘徊，而Python技术大概只在入门级别。所以没有办法通过一种编程语言实现想要的功能。而是采用两种语言，用VBA做提词器，然后用Python完成从excel表格提取数据到文档内。对此还是有些汗颜的。
当然代码虽然初级阶段完成了，实际上只是刚刚起步，数据采集只完成了一点点，而且此类刷单不允许和之前一模一样的单，实际完成的文字部分，还需要后期的修改。
第二部分设想将一些连接词进行自动修改，达到不影响句子意思的目的。
有时候会想像Python语言自己如果能达到人工智能的水平，写出能够自主学习的程序，不断地自我收集数据，并转化，那该有多好，哈哈哈。

VBA部分：

Sub test()
Dim icount&, arr(), ar, ar1, ar2, ar3, n%, rng As Range, p, ws
p = InputBox("请输入商品类")
For Each ws In Worksheets
    If ws.Name = p Then
    '测试用
    'MsgBox "hello"
        icount = Application.WorksheetFunction.CountA(Worksheets(p).Range("a:a"))
        'MsgBox icount
        For Each rng In Worksheets(p).Range("a2:a" & icount)
            n = n + 1
            ReDim Preserve arr(1 To n)
            arr(n) = Join(Application.Transpose(Application.Transpose(rng.Resize(1, 6))), "/")
        Next
        ar = Filter(arr, InputBox("请输入商品名"))
        ar3 = Filter(ar, InputBox("请输入特点"))
        ar1 = ar3(Application.WorksheetFunction.RandBetween(0, UBound(ar)))
        ar2 = Split(ar1, "/")
        Range("a63356").End(xlUp).Offset(1, 0).Resize(1, 6) = ar2
    End If
Next

End Sub

python部分：

import requests
from lxml import etree
import openpyxl

wb=openpyxl.load_workbook('SD.xlsm')
sheet=wb['单']
headers = {
"User-Agent": "Mozilla/5.0 (Windows NT 10.0; Win64; x64) Ap\
pleWebKit/537.36 (KHTML, like Gecko) Chrome/54.0.2840.99 Sa\
fari/537.36"
}
n=1
urllist=['100002402457',   '100003620620',   '46982587803',  '28714955833',  '43285107297',  '47690499856',  '100003896012',  '40963613292',  '27868156296',  '41288758342']
for list1 in urllist:
    url='https://item.jd.com/'+list1+'.html'
    response=requests.get(url,headers=headers).text
    #print(response)
    html = etree.HTML(response)
    text=html.xpath("//div/div[@class='sku-name']")
    print(text[0].text)
    with open('jd.txt',"a") as f:
        #f.write(url+"\n"+str(n)+".SKU："+list1+"\n"+"商品标题："+text[0].text.strip()\
        f.write(url + "\n" + str(n) + ".SKU：" + list1 + "\n"\
                + "商品标题：" + sheet.cell(n+1,2).value+" "+sheet.cell(n+1,3).value\
                +"\n"+"推荐理由："+sheet.cell(n+1,4).value+\
                "\n"+"商品亮点："+sheet.cell(n+1,5).value+\
                "\n"+"商品运营语："+sheet.cell(n+1,6).value+"\n""\n")
    n+=1