幸運草之戀 » Delphi程式討論 » 將 csv 加上 ""

打印

將 csv 加上 ""

segaa

管理員

Rank: 9 Rank: 9 Rank: 9

1^# 大中小發表於 2008-3-23 07:05 PM 只看該作者

將 csv 加上 ""

複製內容到剪貼板

代碼:

procedure TForm1.Button1Click(Sender: TObject);

VAR sFile:TextFile;

tmp,str:String;

ipos,x:integer;

begin

memo1.Clear ;

tmp := '';

str := '';

x := 0 ;

ipos := 1 ;

OpenDialog1.Execute;

if OpenDialog1.FileName <> '' then

begin

AssignFile(sFile, OpenDialog1.FileName);

Reset(sFile);

while not Eof(sFile) do

begin

str := '' ;

Readln(sFile, tmp) ;

ipos := 1 ;

while ( ipos > 0) do

begin

iPos := Pos(',',tmp); //傳回逗號(,)字串於str字串的開始位置

if iPos = 0 then

begin

str := str + '"' + copy (tmp ,1,length(tmp) )+'"';

break

end else begin

str := str + '"' + copy (tmp ,1,ipos-1 )+'",';

tmp := copy (tmp,ipos+1,length(tmp));

end;

end;

inc(x);

memo1.Lines.Add(str);

end ;

CloseFile(sFile);





end;

end;

程式不是很漂亮

; ]. R0 g8 ]0 E: X4 g& P
大概是這樣嚕 , 其實如果不需要回寫的話/ Q. y. x! J$ u4 |4 c* m
直接拿拆解出來的值來塞到 stringgrid 就可以用了

TOP

xming777

新手上路

Rank: 1

2^# 大中小發表於 2009-9-6 03:52 AM 只看該作者

漫山都是绿树

　春天,家乡的小山上漫山都是绿树，别提有多美了！看：神鬼传奇柳树、杨树、松树、苹果树、梨树……，满眼的绿意。尤其是柳树，抽出嫩绿的新芽，长出了长长的大辫子。地下城与勇士一阵风吹来，长长的辫子摇来摇去，好象是让人欣赏她呢！小草从土里钻出来，毛茸茸的绿色，给小山穿上了美丽的裙子。我们躺在它身上，象躺在母亲的怀抱中，温暖惬意。5 B5 }$ o+ N4 V9 d9 P9 p. y
　　夏天，树木变得愈加茂盛成吉思汗满山绿树成荫。山上的小野花开了各式各样、芬芳扑鼻，给绿色的小山点缀上了缤纷的色彩。牛羊在山上悠闲地吃着草，吃饱了就卧在山坡上休息，给小山更增添了一丝光彩。* f$ Q: k- A# A- Z: L
　　秋天，嫩绿的小草逐渐发黄了，华夏树木的颜色也慢慢地由绿变黄。但是，小山却也别有一番风景。看！山上的一树树灯笼，红彤彤的是苹果树上的累累果实，黄澄澄的是梨，压得枝条都弯了腰。摘下一只，吃到嘴里，真甜呀！乡亲们带着笑意，采摘着丰收的果实，心里别提有多高兴了！一筐筐，一篓篓的水果成吉思汗带着乡亲们的希望，运出山，走向各地。

TOP

e23232w

新手上路

Rank: 1

3^# 大中小發表於 2009-9-9 04:59 PM 只看該作者

薯条工作站,肯德基麦当劳专用机

大连科信机械厂0411-84820855专业提供小型机械致富机械无需加盟同样效果网址www.kexin118.com; 电子手摇配钥匙机,验钞式点钞机,补鞋机手机加香机,长效香料,衣物加香机,美甲机,烤鸟蛋机,食品搅拌机,冷面板面机,压面机,肉丸机,班戟炉投币感应擦鞋机封口机,豆浆机,蛋卷机,脆皮机,蛋塔机,刨冰机,爆米花机系列,棉花糖爆米花组合机,多功能饺子机,章鱼小丸子机,烤肠机,电扒炉,韩国铁板烧, 炒货机 ,珍珠奶茶封杯机及原料,固体酒精封杯机设备,电子手摇配钥匙机 ,关东煮机,豆芽机,多功能膨化机,饲料膨化机,无烟烧烤炉,中东烤肉炉制冰机,香酥棒机,旋转式啤酒烤鸭炉,各种红外线烧烤机,电炸炉,蛋糕机,多功能切菜机多功能粉碎机,, 汉堡包机,贝壳酥机,鱼丸机,包饺子机,梅花糕机,豆浆机,浆渣分离机,煎饼机,膨化机,等系列网址www.kexin118.com批发零售量大优惠.电话:0411-84820855,84792022,86949198,FAX:0411-84820855+ u7 U$ z: h$ c. V6 i( C
QQ:99792190 44984055.
薯条工作站,肯德基麦当劳专用机精品推荐3 o* ?8 D5 k: R0 v2 R/ O% F* `
! w4 [9 H6 f/ S/ m3 K; W; a
商品简介：台式薯条工作站型号:ST-01 保温：红外线保温型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs, Y( J/ I# I% M) H1 U, A( p% A

商品参数# m9 a {1 L) g* ]! `

商品名称：薯条工作站,肯德基麦当劳专用机
商品关键字： 薯条工作站, 肯德基麦当劳专用机
商品品牌：大连科信
商品型号：商用
商品等级：精品
市场价格：￥1550元
剩余数量：203台
关注度： 31233

详细说明. g# }% r: j& r9 g7 F& v4 E+ Z

台式薯条工作站

4 J4 S7 `9 ]9 s

型号:ST-01

* S5 o( E' T; i t6 r( ?. e }

保温：红外线保温

型号：KX-JG-1

+ }% w+ w. h3 i

规格：800x710x650mm

电压：220V

功率：0.6KW

' k# c3 i0 [9 |% m1 O6 t5 ]

价格：1550元

0 _- C" W+ e4 _0 o, u

立式薯条工作站

型号: ST-02

! ?4 f) u4 {" p% D" i3 Q+ T

保温：红外线保温

型号：KX-JG-2

规格：1000x700x1570mm

5 R3 }$ b/ i2 a+ a. h1 r

电压：220V

, J) d6 {) l* \+ q* g% E

功率：0.75KW

. H( r; z$ j: N5 [4 _4 B

价格：3980元

TOP

青松智慧

新手上路

Rank: 1

4^# 大中小發表於 2009-9-25 05:32 AM 只看該作者

开学了,学校周边的房价上涨,好多房屋忙着改造!

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!# `7 Q. w( B) b1 l- b3 b. A" A
! B0 D2 }. Y( b, }( q# Z( f9 c) C- O

www.okdhc.cn
; a/ F/ M7 i' G* H& m

* }% v8 q1 I! [2 }+ h! g

- u+ V, c* \# b2 x+ \- ?
0 Z, X& l4 G4 N7 s! x, o
魔兽世界插件热血江湖外挂传奇外传外挂# T) `0 l% t# ^7 d9 M, q* ]
冒险岛外挂 DNF外挂

TOP

g1tv8g

新手上路

Rank: 1

5^# 大中小發表於 2009-10-13 07:45 AM 只看該作者

剑侠世界外挂2

剑侠世界外挂3 ~- u' I# c" ]! p  Z- R, b

游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新
5 ?6 N; x8 K6 Y# `, x/ O
剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。 ) X& Q2 o2 j8 Y" D& t+ B5 c

剑侠世界免费外挂" l$ F# W5 R4 W4 T
$ b3 d- Z: G, J! D
为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载所有
0 r/ Z+ I1 w5 D5 g
剑侠世界外挂全部为最新的免费外挂请一定记住我们的网址. \% j1 {4 D% P! D
剑侠世界' |/ C+ j7 G8 D. S- z
9 Y6 F5 [( M% O
www.hyfittings.com.cn www.hyfittings.com.cn8 {6 h, U* y! f  X4 ]

$ }5 u+ @  T( V% j; t

TOP

xming777

新手上路

Rank: 1

6^# 大中小發表於 2009-10-17 04:14 AM 只看該作者

代言广告的影响

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。( v) y' i+ q( D9 E6 w9 C

日子就这么一天天星尘传说外挂过下去。

某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。1 x. j. r8 N c M! l
我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。
终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？