標題: 將 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;
程式不是很漂亮 ' q$ X# E( r) Q: V! B
大概是這樣嚕 , 其實如果不需要回寫的話% n w6 @. @# {$ @" R
直接拿拆解出來的值來塞到 stringgrid 就可以用了
作者: xming777 時間: 2009-9-6 03:52 AM 標題: 漫山都是绿树
春天,家乡的小山上漫山都是绿树,别提有多美了!看:神鬼传奇柳树、杨树、松树、苹果树、梨树……,满眼的绿意。尤其是柳树,抽出嫩绿的新芽,长出了长长的大辫子。地下城与勇士一阵风吹来,长长的辫子摇来摇去,好象是让人欣赏她呢!小草从土里钻出来,毛茸茸的绿色,给小山穿上了美丽的裙子。我们躺在它身上,象躺在母亲的怀抱中,温暖惬意。6 S7 h0 n( F; Q! p% w
夏天,树木变得愈加茂盛成吉思汗满山绿树成荫。山上的小野花开了各式各样、芬芳扑鼻,给绿色的小山点缀上了缤纷的色彩。牛羊在山上悠闲地吃着草,吃饱了就卧在山坡上休息,给小山更增添了一丝光彩。
. j7 |: |: J( e) d) L 秋天,嫩绿的小草逐渐发黄了,华夏树木的颜色也慢慢地由绿变黄。但是,小山却也别有一番风景。看!山上的一树树灯笼,红彤彤的是苹果树上的累累果实,黄澄澄的是梨,压得枝条都弯了腰。摘下一只,吃到嘴里,真甜呀!乡亲们带着笑意,采摘着丰收的果实,心里别提有多高兴了!一筐筐,一篓篓的水果成吉思汗带着乡亲们的希望,运出山,走向各地。
作者: e23232w 時間: 2009-9-9 04:59 PM 標題: 薯条工作站,肯德基麦当劳专用机
大连科信机械厂0411-84820855专业提供小型机械致富机械无需加盟同样效果网址www.kexin118.com; 电子手摇配钥匙机,验钞式点钞机,补鞋机手机加香机,长效香料,衣物加香机,美甲机,烤鸟蛋机,食品搅拌机,冷面板面机,压面机,肉丸机,班戟炉投币感应擦鞋机 封口机,豆浆机,蛋卷机,脆皮机,蛋塔机,刨冰机,爆米花机系列,棉花糖爆米花组合机,多功能饺子机,章鱼小丸子机,烤肠机,电扒炉,韩国铁板烧, 炒货机 ,珍珠奶茶封杯机及原料,固体酒精封杯机设备,电子手摇配钥匙机 ,关东煮机,豆芽机,多功能膨化机,饲料膨化机,无烟烧烤炉,中东烤肉炉制冰机,香酥棒机,旋转式啤酒烤鸭炉,各种红外线烧烤机,电炸炉,蛋糕机,多功能切菜机 多功能粉碎机,, 汉堡包机,贝壳酥机,鱼丸机,包饺子机,梅花糕机,豆浆机,浆渣分离机,煎饼机,膨化机,等系列网址www.kexin118.com批 发零 售量大优惠.电话:0411-84820855,84792022,86949198,FAX:0411-84820855: m9 a7 C0 I1 Z- t# [9 ^+ l
QQ:99792190 44984055.
/ Q2 y1 c+ P0 X6 r薯条工作站,肯德基麦当劳专用机精品推荐
) r9 K8 M$ ^. s6 W2 J* h- H. @" a' `5 x+ X: \
商品简介:台式薯条工作站 型号:ST-01 保温:红外线保温 型号:KX-JG-1 规格:800x710x650mm 电压:220V 功率:0.6KW 价格:1550元 &nbs
3 p2 o6 C* Z6 ]2 d% j7 M# [ 商品参数
+ V9 V* x- q8 \" h: N- 商品名称:薯条工作站,肯德基麦当劳专用机
- 商品关键字: 薯条工作站, 肯德基麦当劳专用机
- 商品品牌:大连科信
- 商品型号:商用
- 商品等级:精品
- 市场价格:¥1550元
- 剩余数量:203台
- 关 注 度: 31233
i7 P3 b% r. d
详细说明4 t- F6 e6 g9 V1 @. O
9 O0 _% v$ e% j1 s, {% ]; P# P( E- N- b& F% P
- D; X3 L: `! B1 c; c( D( `
| | 台式薯条工作站
8 \% z& \# ~7 ^3 H# s! H) w1 X型号:ST-01 3 O* Z" ?9 f$ R& H7 I1 o. v
保温:红外线保温
* {8 Z! P- S G" q3 c6 d型号:KX-JG-1
& ~$ ?+ v# b0 q规格:800x710x650mm
6 `. e+ f+ R. ^ u电压:220V
% F* [/ q0 H4 A! ]1 s4 {功率:0.6KW
/ w: w% O0 n# z% s0 L4 x价格:1550元
- v: \' J' d; f/ d3 ~ |
7 g4 @* N* N* e8 R0 b: [- w | |
7 S8 E/ t! t; T& G: W立式薯条工作站 2 S, @& V% W$ C3 _" N/ s x/ Z
型号: ST-02 + l/ F5 d% \8 P) i
保温:红外线保温
" g/ Y0 b# g" L$ y3 d型号:KX-JG-2
+ `3 |+ @8 ]. h3 y1 j) S4 D4 M X8 d, Y4 {规格:1000x700x1570mm
) L2 k6 V: e3 f7 ?4 A! w, e: z. n# ~电压:220V
4 X# ]/ @6 g! d' ]- r) d% L0 y# x功率:0.75KW 0 _4 J, A4 w( Y0 X- V8 Y
价格:3980元
; | S0 p( w s2 r+ O |
/ P5 V% a8 r X) g1 }
作者: 青松智慧 時間: 2009-9-25 05:32 AM 標題: 开学了,学校周边的房价上涨,好多房屋忙着改造!
近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!
- ]+ w% ?2 z% r; p& I& o+ x6 j6 J0 F. I3 e' c" k& a
l) F; E5 f& m: rwww.okdhc.cn9 T; ^9 r0 W2 T
( G+ g8 n& D& I+ f4 [( C8 {0 j6 j. r% x9 `% R2 _; U: I! ^% O6 I
. ]2 s/ Z% b2 l& k
4 T/ _/ [' l! A3 N
3 }" N- P3 d9 @4 {6 H5 [% f- `1 d5 D9 }8 e
- `( q. H. @" ^! [) S* N2 Z4 F7 d
" ~9 T3 N5 I. x, H
- a6 P% {/ G6 _8 b1 f% k- m8 u& y魔兽世界插件 热血江湖外挂 传奇外传外挂
& _: F8 M* F3 T. N6 D冒险岛外挂 DNF外挂
作者: g1tv8g 時間: 2009-10-13 07:45 AM 標題: 剑侠世界外挂2
剑侠世界外挂6 A8 v7 B* n0 `% ^
3 o" {9 Z2 r* J! C0 k; J$ L游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新" X% r- W. N: w4 R' y& _) B
1 `5 ]( y2 e# n5 l剑侠世界外挂,剑侠世界账号、金币、装备等交易信息,欢迎访问。 ' h+ b2 @3 J5 Z6 {* Q
2 |3 [" r% _4 ~! o% e) e2 M0 L/ k
剑侠世界免费外挂: K0 j0 Q/ F, z* O9 Q
7 U+ D1 D1 ^# k3 r; }" E9 \
为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有
; ]1 a# T! W6 L
3 ^9 b4 A; M* }) Z2 b# L7 X剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址
9 d- k% |! n! r1 C; M剑侠世界
; L0 H" ]6 A7 J* W/ q: |, s6 C+ s1 z, i9 ?
www.hyfittings.com.cn www.hyfittings.com.cn* T7 Y+ Z L) v( F2 g) P, M% D
8 y" W$ t/ t \
6 b& n* J" I; V5 W8 A5 j0 o. G0 g
9 N! d; X5 D/ b9 A. d
作者: xming777 時間: 2009-10-17 04:14 AM 標題: 代言广告的影响
公司的QQ华夏外挂一个同事,非常漂亮。经过大家的讨论,得出结论,她和关之琳非常像。9 e+ F, W, k' A! ]2 Z6 }1 e
! R( B+ ?- n4 l. e8 z# ^' y
日子就这么一天天星尘传说外挂过下去。+ ^, J+ T' v& f: B
3 C6 g0 y6 E8 [# {& U. Y
某一天,公司楼下电梯厅装了一个液晶电视,不断的播放广告,翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次:感觉不舒服吗?请用永恒之塔外挂洁尔阴洗液。一分钟,轻松做女人。
3 J# m r/ p$ [$ P1 X/ E. v: Q我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。
+ i0 N3 R! ], A9 t终于此小妹在潜移默化中爆发了。今天早上,我,她,以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽,皱着眉头。她关心的来了一句:感觉不舒服吗?
作者: fack10 時間: 2010-1-16 01:59 PM 標題: 支持!
支持!( k2 W* D9 Q* @& m; f
5 n4 m! H" v/ C, B% K% X
( K3 r9 K) y8 _( ^0 Z" u. H( Z# m( O9 T
; V" j9 B5 F3 U$ c7 I4 r
! }! E6 G& D4 ^* v0 K8 U' P; y6 X. u5 }; {4 v
! @! T/ W1 c5 _9 d2 ^0 M! z" B9 D
% E( o# x' x3 ~$ [
' `$ g' x/ D# X/ X( ?. n3 M
" e9 V5 j5 ]4 X% P2 |9 p0 w% I0 }" O( V9 s; b) i! |, B
' N8 D9 Y% ]' H2 u( b! }9 a
& p# i) _0 i) q2 v0 |
Q345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管
作者: fack10 時間: 2010-4-15 10:37 PM 標題: 支持!
支持!
2 U$ ~% @; I( _
/ h5 L/ ~+ b2 O" J0 k. a7 s% T. [+ Q7 I Q( Q8 x3 ?- y2 k7 f7 q" r
0 d W: E$ G; d5 j# Z# Z
4 d0 z" |4 G b, B1 y) }6 U/ o @+ ^+ K; s# R+ o+ B
1 M& Q# `9 C$ z3 [0 {& Z- s7 `
& W0 @9 g+ f1 E) Z! s! Y8 ? x3 Q. ^3 W* F/ f
: n# s% C! ?) h1 p/ y. T
- x; i" y1 W2 x
- f, H9 ]# Q# T: E: l+ B) U2 {" m; e* ~
) U; ?- |5 F9 P) H. R, E+ z
矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管
歡迎光臨 幸運草之戀 (http://discuz.segaa.net/) |
Powered by Discuz! 6.0.0 |