你们都用 ChatGPT 写过什么代码？

昨天，给 ChatGPT 提出代码编写要求，下载某个报纸每天的 PDF 各个页面电子报，并把同一天的合并成一个独立的 PDF。

经过我手动修改，完全可以执行。以下为代码（需要在RStudio中运行）：

1. library(rvest)
   
2. library(qpdf)
   
3. 
   
4. start_date <- as.Date("20230103", format="%Y%m%d")
   
5. end_date <- as.Date("20230320", format="%Y%m%d")
   
6. rangea <- seq(start_date, end_date, by="days")
   
7. rangeb <- format(rangea,"%Y%m/%d")
   
8. 
   
9. for (j in seq_along(rangeb)){
   
10.   # 读取网页
    
11.   url <- paste0("http://sztqb.sznews.com/PC/layout/",rangeb[j],"/node_A01.html")
    
12.   pg <- read_html(url)
    
13.   
    
14.   # 提取所有a标签中的href属性
    
15.   links <- html_attr(html_nodes(pg, "a"), "href")
    
16.   
    
17.   # 筛选出以.pdf结尾的链接
    
18.   pdf_links <- links[grepl("\\.pdf$", links)]
    
19.   pdf_links <- sub("^\\.\\./\\.\\./\\.\\./\\.\\./", "http://sztqb.sznews.com/", pdf_links)
    
20.   pdf_links <- unique(pdf_links)
    
21.   
    
22.   # 创建一个空向量用于存储新文件名
    
23.   new_names <- vector()
    
24.   
    
25.   # 循环下载每个pdf文件，并按照顺序编号重命名
    
26.   for (i in seq_along(pdf_links)) {
    
27.     # 获取原文件名
    
28.     old_name <- basename(pdf_links[i])
    
29.     # 生成新文件名，格式为"编号-原文件名"
    
30.     new_name <- paste0(i, "-", old_name)
    
31.     # 使用repeat语句重复尝试下载直到成功
    
32.     repeat {
    
33.       # 使用tryCatch()函数捕获错误
    
34.       result <- tryCatch({
    
35.         # 下载并重命名文件到当前目录
    
36.         download.file(pdf_links[i], destfile = new_name, mode = "wb")
    
37.         # 返回TRUE表示成功
    
38.         TRUE
    
39.       }, error = function(e) {
    
40.         # 返回FALSE表示失败，并打印错误信息
    
41.         print(e)
    
42.         FALSE
    
43.       })
    
44.       
    
45.       # 如果result为TRUE，说明下载成功，跳出repeat语句，继续下一个循环
    
46.       if (result) break
    
47.       
    
48.       # 否则，等待5秒后再次尝试下载
    
49.       Sys.sleep(5)
    
50.     }
    
51.     # 将新文件名添加到向量中
    
52.     new_names <- c(new_names, new_name)
    
53.   }
    
54.   
    
55.   # 合并所有下载的pdf文件为一个新文件，命名
    
56.   name <- paste0(rangea[j],".pdf")
    
57.   qpdf::pdf_combine(input = new_names, output = name)
    
58.   
    
59.   # 删除之前下载的pdf文件
    
60.   unlink(new_names)
    
61. }

复制代码

你们有没有测试过代码编写，以提升工作、学习效率？

我让它给我画了一个九宫格，看了看

我最近一次是用chatGPT帮我写了一个canvas上五彩纸屑随机散落的动画用来做庆祝🎉任务完成，效果很好，稍微改改就用上了，之前就是嫌自己写麻烦一直没做这个效果。

用python，编写一个程序，固定提取二进制文件的第N位到底N位置，并且颠倒一下。。
一发入魂。
基本上我就是改了一下文字。直接就能用。。

我尝试写过一个自动化脚本，自定义时间，定时点击某一位置 ，web脚本

我尝试写minecraft的mod后来发现自己一点编程不会，难度指数比预想要高