‹‹ 上一主題 | 下一主題 ››
發新話題
打印

將 csv 加上 ""

segaa

管理員

Rank: 9Rank: 9Rank: 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;
程式不是很漂亮 * W6 K0 r' b$ Q7 Y; r
大概是這樣嚕  , 其實如果不需要回寫的話
* ?' s: p- `+ f直接拿拆解出來的值來塞到 stringgrid 就可以用了

TOP

xming777

新手上路

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

漫山都是绿树

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

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
1 Y4 ?# X2 v5 e# O- h; r6 g1 HQQ:99792190 44984055.
* W- O  n, q4 u7 N  P薯条工作站,肯德基麦当劳专用机精品推荐
. i, f- @6 ^% x9 j' M" g- W9 J: V; }9 E9 ?% \
商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs( M3 L, A- X7 A$ F2 h" l) G
商品参数  L* Y# C; Q9 z1 Q
  • 商品名称：薯条工作站,肯德基麦当劳专用机
  • 商品关键字： 薯条工作站, 肯德基麦当劳专用机
  • 商品品牌：大连科信
  • 商品型号：商用
  • 商品等级：精品
  • 市场价格：￥1550元
  • 剩余数量：203台
  • 关 注 度： 31233
0 a7 b2 p- S+ h* [# x
详细说明
6 }3 e+ p8 N" X. B# U1 j+ Q, Y" F" H  u

0 B  m7 o- @3 M; _: P

4 ^. I# Q8 Y, J- @9 f  o: w

               

                  

台式薯条工作站

2 {' v- {" M. l" y4 Q1 {8 p

型号:ST-01


, g: Z" K9 p  g

保温：红外线保温


% K' _* V" ^/ X3 q

型号：KX-JG-1

/ A( W! |) _, z/ f

规格：800x710x650mm

, w% Q4 V/ K' J; n% {2 ^# W

电压：220V

" Q$ w7 r! R9 b" S

功率：0.6KW

+ w" y$ b2 r$ b' o) h

价格：1550元            

. T' r6 {$ L& k7 z( @5 Y" R


5 K2 D* W- G! z  F# Q4 N3 X

                  8 W0 j; H2 |8 G1 ]

立式薯条工作站


" }$ O" Z/ V# V" N! B

型号: ST-02


. |2 Y9 Y( h+ _) {& _( ]/ P

保温：红外线保温


! i) X1 m$ p0 l+ S. `2 V; r( k1 }; s

型号：KX-JG-2


8 d, b8 c, g7 Q+ k

规格：1000x700x1570mm

" ^1 O+ f. E) R

电压：220V

& w: K! I1 f( D: I/ {

功率：0.75KW

' L; D( \* C  f5 U; a7 e  p. |

价格：3980元           

/ A6 O; P, I0 V6 Q- ]6 \; V


! E2 E0 e7 Y6 ~& R5 W

TOP

青松智慧

新手上路

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

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

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!
- Y! b( W6 ~7 y. [1 \: Q8 C! x1 C3 U: o; Q& l

$ i: j8 }! ?+ D( e; D, S, _www.okdhc.cn
! |' \. q+ ~( P; k+ I( G  _! D0 X% c3 d3 S  c% S+ ^3 S( s/ S
6 @8 e. e! u1 e8 `# w* x1 o
+ h& h9 x: D6 @; |* J! \

+ X) k, H" w: V! ~
2 O4 R: b8 L/ u/ @: P9 p
! M: y6 ]: E3 b& ^9 s" z- S' l/ X! I3 K1 a

  Z6 a4 i4 V* k" x4 x4 d( i$ I+ m9 O
魔兽世界插件  热血江湖外挂   传奇外传外挂
& a; s3 q3 A! T% t冒险岛外挂    DNF外挂

TOP

g1tv8g

新手上路

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

剑侠世界外挂2

剑侠世界外挂1 g: S1 y1 h. K7 B

: u& }+ J0 }1 V: _5 ~游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新
, z# K! @' _$ P: m0 L% E1 Y/ D+ \! o" ^' I7 f: L
剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。 " c/ e  w' R; v1 f' L' K
7 G; L( y! _2 J' N  ^( t7 V
剑侠世界免费外挂
1 b) d/ }# ^2 _9 r- y" i) G* j$ @7 z$ t% D& u2 Y- S
为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有
6 ]9 c0 x) b( h0 W% Q3 _4 A- W* K; l5 B/ E0 J! ^1 a. e
剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址! N+ `; F9 u: z$ ~2 M. c2 d" d
剑侠世界6 h* p* t) y! l+ Z3 o
* A9 q* W# ^& U0 Y  y
www.hyfittings.com.cn   www.hyfittings.com.cn: u; m  {3 @+ h, p
7 G/ X" Y! {: E: X$ W/ @# `: _

$ _4 }6 @' R8 Q; z: B5 @- I
& \& T) U" k# Q* s% [

TOP

xming777

新手上路

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

代言广告的影响

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。
+ u& H- B2 C, j0 r
" {3 c1 `8 V- [% T! n日子就这么一天天星尘传说外挂过下去。: v. h6 Z2 q9 D  P
) h) Q4 N  J7 s& r
某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。
9 ]) V( U) m, I& D3 T7 e我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。
0 }7 K! q  ~% h1 r) y8 t终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？

TOP

fack10

新手上路

Rank: 1
7# 大 中 小 發表於 2010-1-16 01:59 PM  只看該作者

支持！

支持！4 t1 ?6 O& L- }) `; h( x0 }
# e. F; P$ `; ]" H3 H
: z( M" s; i% A) u# L, H8 A/ r

3 @4 G$ E* x0 ~% V; a  _: q& l0 [7 ]. c
& R% J. B# [4 ]. ~; f$ X% T- c% z
8 X2 z" \, \& I$ R

2 w' |/ A& @: R: H6 W( L0 d: C1 w% V- N, W8 K
5 x3 H" g% q% [/ S0 z9 D7 O
5 c3 o* U5 R5 T8 p* C# Q

% p8 r5 p5 t2 z
; I) |) ^* w3 j- T) L1 \- k/ I) S8 M) F% \8 J: `, }" l
Q345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管

TOP

fack10

新手上路

Rank: 1
8# 大 中 小 發表於 2010-4-15 10:37 PM  只看該作者

支持！

支持！1 n* q* S) N! L- a) {

* ?+ c1 F6 T& \
& \3 G6 ~6 I* h1 K2 H
2 `+ ?: |  G5 `. v/ F: |7 t
! U( z+ U5 @. t: ~  j
" {/ G, I& J8 D1 F. ]& _
2 ?7 D7 K  A, `1 z: R& ~& T8 `% H; B/ I3 C2 _) E, t- l
  y9 j8 {; z' {0 q/ h

) y% M9 }) |2 n# M1 E8 ~* h6 H5 X9 `5 D

  k- }9 B, O. ]& M+ _% m1 T
9 S2 @9 F# f5 u& O; |
; L1 z$ Z' m- s) T4 o7 A矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管

TOP

‹‹ 上一主題 | 下一主題 ››
發新話題