社区
Delphi
帖子详情
怎样创建txt文件,并把一些字符串写到txt文件?
hairun
2003-08-30 06:45:47
谢谢
...全文
128
5
打赏
收藏
怎样创建txt文件,并把一些字符串写到txt文件?
谢谢
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
zousoft
2003-08-30
打赏
举报
回复
if not FileExists(MyFile) then
AssignFile(MyTextFile, MyFile);
第二遍点击自然就不会assignfile了,可是后面还ReWrite(MyTextFile);当然会出错。
可以改为if FileExists(MyFile) then exit;
hairun
2003-08-30
打赏
举报
回复
下面代码有什么问题啊,刚点击没问题,为何再点击出现异常啊?
procedure TForm1.Button1Click(Sender: TObject);
Var
MyTextFile:TextFile;
MyFile:string;
begin
MyFile:='User.txt';
if not FileExists(MyFile) then
AssignFile(MyTextFile, MyFile);
ReWrite(MyTextFile);
try
Writeln(MyTextFile);
Writeln(MyTextFile);
Writeln(MyTextFile);
Writeln(MyTextFile);
Writeln(MyTextFile,'你好');
finally
CloseFile(MyTextFile);
end;
end;
xjlqlqlq
2003-08-30
打赏
举报
回复
楼上正确。。。
四步曲:
1.声明: f :TextFile;
2.创建: AssignFile(f,'文件名');
ReWrite(f); //如有同名文件会覆盖
3.写数据: Writeln(f,'...写入的字符串...');
4.关闭文件: CloseFile(f);
楚人无衣
2003-08-30
打赏
举报
回复
//创在当前文件夹下
procedure Tfrmmain.btncreateClick(Sender: TObject);
var
MyTextFile: TextFile;
MyFile: string = 'test.txt';
begin
if FileExists(MyFile) then
MessageBox(handle, PChar('所要创建的文件' + MyFile + '已存在!'), '提示', mb_iconWarning + mb_Ok)
else
begin
AssignFile(MyTextFile, MyFile);
ReWrite(MyTextFile);
write(MyTextFile, meotxt.text); //meotxt为TMemo控件
MessageBox(handle, PChar('文件' + MyFile + '创建成功!'), '提示', mb_iconWarning + mb_Ok);
CloseFile(MyTextFile);
end;
end;
hkbarton
2003-08-30
打赏
举报
回复
用stringlist的savetofile方法
python
创建
txt
文件
并写入
字符串
-python
创建
txt
文件
1.自己写入
txt
直接上核心代码:with open("douban.
txt
","w") as f:f.write("这是个测试!")1212这句话自带
文件
关闭功能,所以和那些先open再write再close的方式来说,更加pythontic!结果就是这样:2.将
文件
输入(print)的内容写入
txt
#分模块测试,
txt
写入测试# -*...
java
文件
字符串
_java将
字符串
写入到
txt
文件
中
将
字符串
写入到
txt
文件
中import java.io.BufferedWriter;import java.io.File;import java.io.FileNotFoundException;import java.io.FileOutputStream;import java.io.FileWriter;import java.io.IOException;import java.io....
Vue 将
字符串
保存成
TXT
文件
保存到电脑
Vue 将
字符串
保存成
TXT
文件
保存到电脑 vue 前端有一段
字符串
,然后点击按钮,将
字符串
保存到
txt
文件
下载到电脑。 首先需要安装一下依赖: npm install file-saver --save 安装完成,在需要下载
txt
文件
的页面引入一下库。 import { saveAs } from 'file-saver'; 点击按钮执行下面保存
txt
文件
的代码: download
Txt
() { let str = '王佳伟Vue
字符串
保存到
txt
文件
下载到电脑案例' le
c语言读取
txt
到一个
字符串
,c语言读取
txt
文件
内容简单实例
在C语言中,
文件
操作都是由库函数来完成的。要读取一个
txt
文件
,首先要使用
文件
打开函数fopen()。fopen函数用来打开一个
文件
,其调用的一般形式为:
文件
指针名=fopen(
文件
名,使用
文件
方式) 其中,“
文件
指针名”必须是被说明为FILE 类型的指针变量,“
文件
名”是被打开
文件
的
文件
名。 “使用
文件
方式”是指
文件
的类型和操作要求。“
文件
名”是
字符串
常量或
字符串
数组。其次,使用
文件
读写函数读...
python将
txt
文件
转为
字符串
_Python
文件
如何转换为
字符串
Python
文件
如何转换为
字符串
一、最方便的方法是一次性读取
文件
中的所有内容并放置到一个大
字符串
中:all_the_text = open('thefile.
txt
').read( ) # 文本
文件
中的所有文本all_the_data = open('abinfile','rb').read( ) # 二进制
文件
中的所有数据为了安全起见,最好还是给打开的
文件
对象指定一个名字,这样在完...
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章