Board logo

標題: 將 csv 加上 "" [打印本頁]

作者: segaa    時間: 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;
程式不是很漂亮
% ]- _4 a! c! c3 ?8 e大概是這樣嚕  , 其實如果不需要回寫的話
( P# u2 V6 J3 a! K直接拿拆解出來的值來塞到 stringgrid 就可以用了
作者: xming777    時間: 2009-9-6 03:52 AM     標題: 漫山都是绿树

 春天,家乡的小山上漫山都是绿树,别提有多美了!看:神鬼传奇柳树、杨树、松树、苹果树、梨树……,满眼的绿意。尤其是柳树,抽出嫩绿的新芽,长出了长长的大辫子。地下城与勇士一阵风吹来,长长的辫子摇来摇去,好象是让人欣赏她呢!小草从土里钻出来,毛茸茸的绿色,给小山穿上了美丽的裙子。我们躺在它身上,象躺在母亲的怀抱中,温暖惬意。
" X6 ~7 P7 N: f/ \) r  夏天,树木变得愈加茂盛成吉思汗满山绿树成荫。山上的小野花开了各式各样、芬芳扑鼻,给绿色的小山点缀上了缤纷的色彩。牛羊在山上悠闲地吃着草,吃饱了就卧在山坡上休息,给小山更增添了一丝光彩。
% r4 K1 T, C) Q- X4 \; x9 {  秋天,嫩绿的小草逐渐发黄了,华夏树木的颜色也慢慢地由绿变黄。但是,小山却也别有一番风景。看!山上的一树树灯笼,红彤彤的是苹果树上的累累果实,黄澄澄的是梨,压得枝条都弯了腰。摘下一只,吃到嘴里,真甜呀!乡亲们带着笑意,采摘着丰收的果实,心里别提有多高兴了!一筐筐,一篓篓的水果成吉思汗带着乡亲们的希望,运出山,走向各地。
作者: e23232w    時間: 2009-9-9 04:59 PM     標題: 薯条工作站,肯德基麦当劳专用机

大连科信机械厂0411-84820855专业提供小型机械致富机械无需加盟同样效果网址www.kexin118.com; 电子手摇配钥匙机,验钞式点钞机,补鞋机手机加香机,长效香料,衣物加香机,美甲机,烤鸟蛋机,食品搅拌机,冷面板面机,压面机,肉丸机,班戟炉投币感应擦鞋机 封口机,豆浆机,蛋卷机,脆皮机,蛋塔机,刨冰机,爆米花机系列,棉花糖爆米花组合机,多功能饺子机,章鱼小丸子机,烤肠机,电扒炉,韩国铁板烧, 炒货机 ,珍珠奶茶封杯机及原料,固体酒精封杯机设备,电子手摇配钥匙机 ,关东煮机,豆芽机,多功能膨化机,饲料膨化机,无烟烧烤炉,中东烤肉炉制冰机,香酥棒机,旋转式啤酒烤鸭炉,各种红外线烧烤机,电炸炉,蛋糕机,多功能切菜机 多功能粉碎机,, 汉堡包机,贝壳酥机,鱼丸机,包饺子机,梅花糕机,豆浆机,浆渣分离机,煎饼机,膨化机,等系列网址www.kexin118.com批 发零 售量大优惠.电话:0411-84820855,84792022,86949198,FAX:0411-84820855
. ?2 Y- R5 Y+ \7 k7 ZQQ:99792190 44984055.
9 V4 A% Z7 ?7 c) O! E7 k  ^
薯条工作站,肯德基麦当劳专用机
精品推荐1 n( S  m: A7 \8 m  G' L

  l- [% X6 d9 {" \商品简介:台式薯条工作站 型号:ST-01 保温:红外线保温 型号:KX-JG-1 规格:800x710x650mm 电压:220V 功率:0.6KW 价格:1550元 &nbs  c4 u2 s" e" c  q4 p
商品参数8 H, @5 \. u* l& l  x5 k: V

. \, W  G; p0 n3 M 详细说明
, y3 T1 w2 C" l7 d" ~- v9 f  u
0 J# g4 L* P/ [' C
& k$ H" i; a- |

4 \1 y) q0 X. k& U1 o: ]

               

                  

台式薯条工作站


0 V2 l, `5 d3 `0 t( q  D# V

型号:ST-01

1 N8 D; h1 h" \2 R1 l% k

保温:红外线保温


. B- z* F+ |3 O5 m. b' ~" A  k

型号:KX-JG-1


2 F% N7 U- W2 E

规格:800x710x650mm

: y9 }  k% B. M7 D' J7 c

电压:220V


% ]6 u* Z: D; U5 V9 L

功率:0.6KW


( p6 Q* w( y3 o  _8 }% `- x0 H

价格:1550元            

( H% I+ ]! ?  `: @

( E) {* o$ |; J( B1 `. O0 U3 H

                  
4 J4 ~8 v- e2 k$ o  N" a

立式薯条工作站


* ~) O+ X4 [7 p! i! [$ R4 j# ?: A

型号: ST-02


. x& v0 S6 X+ n0 N

保温:红外线保温


" S. _/ ^- o' N7 w2 D/ m; E

型号:KX-JG-2

/ u" Z- y! m% N1 x6 J: W+ i6 S

规格:1000x700x1570mm

- M( C& D" h- V! n7 w4 r5 ?" B

电压:220V


; D& q4 F1 }! X% `; o  f4 J

功率:0.75KW

: ~' {8 c% g2 G9 ]' C9 A8 U

价格:3980元           


+ t- V: @8 ^& c3 Z$ m5 b6 D. L0 @

# x  T. p7 C0 J7 ^/ ?; Q  K/ ]( r


作者: 青松智慧    時間: 2009-9-25 05:32 AM     標題: 开学了,学校周边的房价上涨,好多房屋忙着改造!

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!6 C" U) s5 p! q% C7 G1 C; t( Q# R

, C( H+ c$ Y, G2 y  G  `  H
; l& J9 B; Y. m" t8 D1 lwww.okdhc.cn! X, `: f0 |3 n9 M3 a. K9 Z

% N2 S8 P! k" w) m/ y; X) t
. H2 r  p3 @7 f* m+ a# e
1 T0 b2 Y4 v  m* L# i! j+ r- x& `" Q' A" x

5 G3 b/ h! T. G3 [  b
% F+ Y# m- w1 q0 M9 M  p$ b8 Y, F( Z" T: K1 v* l! {5 L
5 e4 E. q% _) Z+ L7 a
2 i% c1 F* o3 `8 f$ \* H) [1 U
魔兽世界插件  热血江湖外挂   传奇外传外挂1 b% H( \+ }1 A' F
冒险岛外挂    DNF外挂
作者: g1tv8g    時間: 2009-10-13 07:45 AM     標題: 剑侠世界外挂2

剑侠世界外挂0 @2 P: Q0 o" @1 `# H
( x# e3 h9 J3 l$ t
游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新( S8 D; ]5 a6 E# T9 R

+ v: h) F% j1 p4 J/ e剑侠世界外挂,剑侠世界账号、金币、装备等交易信息,欢迎访问。
& R" _) i- J' G5 X
7 M  l9 c* N5 y1 [: r0 I  h: x* C
剑侠世界免费外挂
6 j5 S; i# ~+ h* q2 S0 ^9 d6 ^  L: O- G% e. \
为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有# _6 x/ h* \. C) l. `9 u2 y

1 K  u9 Q! n! u) d' T- z  l剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址
0 F* I6 x! f: e9 t" A6 j* f
剑侠世界. x. y& B' Z5 M2 Z
* h2 s5 M. `- p8 N4 `
www.hyfittings.com.cn   www.hyfittings.com.cn+ |1 ^3 ^9 k# h, p& f
% ]" @: L% d0 N( r* v

9 W( Z/ i* z# }& H5 V1 B
$ N8 r# ~7 g: d1 k# t, q. I. e

作者: xming777    時間: 2009-10-17 04:14 AM     標題: 代言广告的影响

公司的QQ华夏外挂一个同事,非常漂亮。经过大家的讨论,得出结论,她和关之琳非常像。
0 D# E- G* b4 a5 D
4 ~3 f, O* _  h$ X! b日子就这么一天天星尘传说外挂过下去。
: I: G+ a4 ?8 {6 m9 ~9 z# \/ I5 x) J# y8 Z% K3 @& e; I
某一天,公司楼下电梯厅装了一个液晶电视,不断的播放广告,翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次:感觉不舒服吗?请用永恒之塔外挂洁尔阴洗液。一分钟,轻松做女人。2 T0 d5 }  N, v5 |
我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。
; M8 _( k7 j3 ~% [$ {终于此小妹在潜移默化中爆发了。今天早上,我,她,以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽,皱着眉头。她关心的来了一句:感觉不舒服吗?
作者: fack10    時間: 2010-1-16 01:59 PM     標題: 支持!

支持!! @/ Q4 p, |5 b' I. A
! {( x" ~6 T% f8 ?, {6 {+ e

& ?) T/ }: @# r; c
6 g" Z- G, v4 m& @
: q6 n5 D2 G' m7 ]! m/ C% {4 z8 O7 L# C% n+ l. v+ J
4 R8 T/ m. X, l9 o- d
6 v7 f  B1 L" W7 O/ E
6 b1 z2 q6 x" w3 P

+ Y! r; C4 ]% j/ X
4 Y% i" x& O$ n6 \( j
/ \; W# @1 b/ C( J7 K8 [! p% J" m' F- a9 e2 i9 S
( S; {4 B+ C2 H0 y* t* n: d4 |
Q345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管
作者: fack10    時間: 2010-4-15 10:37 PM     標題: 支持!

支持!9 ^1 ?7 `9 m3 G
. O1 [0 p5 r/ q# U) s4 p. q
5 n8 R0 [( I! p2 [4 y* C
! i. e* [* R1 z5 ]- K  g

* t! _" s" E( g: x. D& w; k2 g* a  n! }* I

, f. [$ P- V9 u9 w) {( B
$ ^. K" y8 S5 w: e  l8 U4 L: }1 G- b+ g* @: n

# H& K- @5 W: z( m0 W% J/ j( Q( {  I2 Y8 s. u1 N

. H; L: B0 P) k" g8 h2 d7 H- C) m' J( j3 e

( @) y4 h3 V* u' h9 B+ v矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管




歡迎光臨 幸運草之戀 (http://discuz.segaa.net/) Powered by Discuz! 6.0.0