20231111-读取当前文件夹中所有图片名称并写入TXT文本中

使用VBScript,存在问题(当图片名称中有中文时,保存的TXT文本为ANSI编码)

Dim FileSystem, Folder, File, TextFile' 创建文件系统对象
Set FileSystem = CreateObject("Scripting.FileSystemObject")' 获取当前目录路径
Set Folder = FileSystem.GetFolder(".")' 创建 TXT 文件
Set TextFile = FileSystem.CreateTextFile("Data.txt", True)' 遍历当前目录中的文件
For Each File In Folder.Files' 检查文件扩展名是否为图片格式If LCase(Right(File.Name, 4)) = ".jpg" Or _LCase(Right(File.Name, 5)) = ".jpeg" Or _LCase(Right(File.Name, 4)) = ".png" Or _LCase(Right(File.Name, 4)) = ".gif" Then' 将文件名写入 TXT 文件TextFile.WriteLine(File.Name)End If
Next' 关闭 TXT 文件
TextFile.Close' 释放对象
Set TextFile = Nothing
Set Folder = Nothing
Set FileSystem = NothingMsgBox "Successful!"

使用VBScript修改注册表,从而修改Windows 10 记事本默认文本编码(有问题 注册表可以修改 但是好像没什么效果)

Const HKEY_CURRENT_USER = &H80000001Dim objRegistry, strKeyPath, strValueNameDim targetValue' 注册表键路径
strKeyPath = "Software\Microsoft\Notepad"' 注册表值名称
strValueName = "iDefaultEncoding"' 注册表值数据(DWORD 值)
targetValue = 0  ' 这里使用 5 作为示例数值' 创建注册表对象
Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")' 检查注册表键值是否存在
Dim valueNames, valueTypes
objRegistry.EnumValues HKEY_CURRENT_USER, strKeyPath, valueNames, valueTypes' 判断指定值是否存在
Dim valueExists
valueExists = FalseFor i = 0 To UBound(valueNames)If valueNames(i) = strValueName ThenvalueExists = TrueExit ForEnd If
Next' 显示结果
If valueExists Then' 注册表键已存在,直接修改值objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, targetValueMsgBox "Value exists! Value = " & targetValue
Else' 注册表键不存在,创建键并设置值objRegistry.CreateKey HKEY_CURRENT_USER, strKeyPathobjRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, targetValueMsgBox "Value does not exist."
End If' 释放对象
Set objRegistry = Nothing

通过Python实现

import os
import codecs# 获取当前文件夹路径
folder_path = os.getcwd()# 获取当前文件夹下的所有文件
file_names = os.listdir(folder_path)# 过滤出图片文件(假设只包含常见的图片文件格式)
image_extensions = ['.jpg', '.jpeg', '.png', '.gif']
image_files = [file for file in file_names if os.path.isfile(os.path.join(folder_path, file)) and os.path.splitext(file)[1].lower() in image_extensions]# 将图片文件名保存到文本文件
output_file = "Data.txt"with codecs.open(output_file, "w", encoding="utf-8") as file:file.write('\n'.join(image_files))print("图片文件名已保存到", output_file)

将Python文件打包成exe方法(使用PyInstaller):
① 安装:pip install pyinstaller
② 打包:pyinstaller --onefile your_script.py(执行时会弹出cmd)
pyinstaller --onefile --noconsole your_script.py(隐藏命令提示符窗口)

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/138754.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

classification_report分类报告的含义

classification_report分类报告 基础知识混淆矩阵(Confusion Matrix)TP、TN、FP、FN精度(Precision)准确率(Accuracy)召回率(Recall)F1分数(F1-score) classi…

管理员模式运行cmd或则bat文件的时候,出现路径错误的问题

最近在使用Comfyui, 不清楚啥原因,有时候Git无法访问,有时候文件夹无法访问的。就想把它的运行bat命令直接用 管理员模式运行,给到最高的权限,试试。但就这么简单的问题,搜了半天,都是一大堆不靠谱的教程&a…

大数据毕业设计选题推荐-污水处理大数据平台-Hadoop-Spark-Hive

✨作者主页:IT研究室✨ 个人简介:曾从事计算机专业培训教学,擅长Java、Python、微信小程序、Golang、安卓Android等项目实战。接项目定制开发、代码讲解、答辩教学、文档编写、降重等。 ☑文末获取源码☑ 精彩专栏推荐⬇⬇⬇ Java项目 Python…

java框架常见面试题(spring、springMVC、springboot、mybatis)

java框架常见面试题(spring、springMVC、springboot、mybatis) Spring:Spring 是一个轻量级的开源框架,它提供了Java开发人员可以用来构建企业级应用程序的一套全面的技术。Spring 提供了一个完整的模块化框架,包括 90 多个模块,…

selenium+python做web端自动化测试框架实战

最近受到万点暴击,由于公司业务出现问题,工作任务没那么繁重,有时间摸索seleniumpython自动化测试,结合网上查到的资料自己编写出适合web自动化测试的框架,由于本人也是刚刚开始学习python,这套自动化框架目…

数字马力笔试面试复盘

笔试——10月9日19:00 单选:30题 16.如何获取AJAX 请求的响应状态码? A通过AJAX对象的 statusCode 属性获取 B通过AJAX对象的responseText 属性获取C通过AJAX对象的status 属性获取 D通过AJAX对象的responseCode属性获取 答案:可以通过AJAX…

osg点云加载与渲染

目录 效果 laslib 关键代码 完整代码 效果 las点云读取使用了laslib这个库。 laslib 关键代码 {// 这里演示读取一个 .txt 点云文件const char* lasfile path.c_str();std::ifstream ifs;ifs.open(lasfile, std::ios::in | std::ios::binary);liblas::ReaderFactory f;libl…

Spring Cloud学习(三)【Nacos注册中心】

文章目录 认识 NacosNacos 安装使用 Nacos 完成服务注册Nacos 服务分级存储模型集群负载均衡策略 NacosRule根据权重负载均衡Nacos 环境隔离(命名空间)Nacos 和 Eureka 的区别 认识 Nacos Nacos 是阿里巴巴的产品,现在是 SpringCloud 中的一…

Azure - 机器学习:自动化机器学习中计算机视觉任务的超参数

Azure Machine Learning借助对计算机视觉任务的支持,可以控制模型算法和扫描超参数。 这些模型算法和超参数将作为参数空间传入以进行扫描。 关注TechLead,分享AI全维度知识。作者拥有10年互联网服务架构、AI产品研发经验、团队管理经验,同济…

【C++入门】构造函数析构函数

目录 前言 1. 类的默认成员函数 2. 构造函数 2.1 什么是构造函数 2.2 构造函数的特性 3. 析构函数 3.1 什么是析构函数 3.2 析构函数的特性 前言 前边我们已经了解了类和对像的基本概念,今天我们将继续深入了解类。类有6个默认成员函数,即使类中什么都…

C#开发的OpenRA游戏之世界存在的属性CombatDebugOverlay(3)

C#开发的OpenRA游戏之世界存在的属性CombatDebugOverlay(3) 这次来分析CombatDebugOverlay属性,这个属性只有在调试游戏的时候才会使用。当你设置这个属性的时候,就可以看到如下图的结果: 可以看到物品的周边都有一个圆圈,以及有一些十字的点位标志。 那些十字表示的点…

设计模式 -- 策略模式(Strategy Pattern)

策略模式:一种行为型模式,这些设计模式特别关注对象之间的通信。在策略模式中,我们创建表示各种策略的对象和一个行为随着策略对象改变而改变的 context 对象。策略对象改变 context 对象的执行算法。 介绍 意图:定义一系列的算…

Python实现局部二进制算法(LBP)

1.介绍 局部二进制算法是一种用于获取图像纹理的算法。这算法可以应用于人脸识别、纹理分类、工业检测、遥感图像分析、动态纹理识别等领域。 2.示例 """ 局部二进制算法,计算图像纹理特征 """ import cv2 import numpy as np imp…

小程序游戏对接广告收益微信小游戏抖音游戏软件

小程序游戏对接广告是一种常见的游戏开发模式,开发者可以通过在游戏中嵌入广告来获取收益。以下是一些与小程序游戏对接广告收益相关的关键信息: 小程序游戏广告平台选择: 选择适合你的小程序游戏的广告平台非常重要。不同的平台提供不同类型…

iview实现table里面每行数据的跳转

我的需求是跳转到第三方网站&#xff0c;看官方是写了如何跳转站内路由&#xff0c;不符合我的要求&#xff0c;在csdn发现了一篇文章&#xff0c;我贴一下代码 <template><Table border :columns"ReportColumns" :data"ReportData"><templ…

LeetCode 面试题 16.19. 水域大小

文章目录 一、题目二、C# 题解 一、题目 你有一个用于表示一片土地的整数矩阵 land&#xff0c;该矩阵中每个点的值代表对应地点的海拔高度。若值为0则表示水域。由垂直、水平或对角连接的水域为池塘。池塘的大小是指相连接的水域的个数。编写一个方法来计算矩阵中所有池塘的大…

odoo16 库存初始化 excel导入问题

最近在为一家公司实施odoo时&#xff0c;发现库存模块实施过程中按用户实际&#xff0c;产品初始化就是个问题。下面一一记录下 一个新公司&#xff0c;产品都有上百种&#xff0c;甚致几千种&#xff0c;如何把现有产品数据录入系统就是个不小的活。odoo16是有导入导出功能不…

基于遗传算法改进的GRNN多输入多输出回归预测,基于多目标遗传算法+GRNN的帕累托前沿求解,基于遗传工具箱调用GRNN模型的多目标求解

目录 背影 遗传算法的原理及步骤 基本定义 编码方式 适应度函数 运算过程 代码 结果分析 展望 完整代码下载链接:grnn多输入多输出训练测试,遗传算法改进grnn神经网络,NSGA-2多目标遗传算法,多目标遗传算法和grnn结合优化资源-CSDN文库 https://download.csdn.net/downloa…

leetcode做题笔记231. 2 的幂

给你一个整数 n&#xff0c;请你判断该整数是否是 2 的幂次方。如果是&#xff0c;返回 true &#xff1b;否则&#xff0c;返回 false 。 如果存在一个整数 x 使得 n 2x &#xff0c;则认为 n 是 2 的幂次方。 示例 1&#xff1a; 输入&#xff1a;n 1 输出&#xff1a;tr…

悟空crm二次开发 增加客户保护功能 (很久没有消息,但是有觉得有机会的客户)就进入了保护转态

需求&#xff1a;客户信息录入不限数量&#xff0c;但是录入的信息1个月内只有自己和部门领导能看到&#xff0c;如果1个月内未成交或者未转移至自己的客保 则掉入公海所有人可见&#xff0c;这里所说的客保就是现在系统自带的客保 1、需求思维导图 2、新增保护按钮 3、点击该…