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

將 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;
程式不是很漂亮 ! J2 w6 k7 c; Q  [$ u: f
大概是這樣嚕  , 其實如果不需要回寫的話5 _4 s6 ?) l3 E/ b7 A) }
直接拿拆解出來的值來塞到 stringgrid 就可以用了

TOP

xming777

新手上路

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

漫山都是绿树

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

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/ m4 v& _. j1 Z5 K) D: R# M5 w
QQ:99792190 44984055.
* n( C0 {; M  @; c7 @  {薯条工作站,肯德基麦当劳专用机精品推荐* J2 O/ I5 Q# |2 K

( B# K7 x$ a5 M8 O7 w商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs$ O+ o" [3 K2 h% J2 c2 n8 B# U2 o2 f
商品参数
7 t5 c8 `3 Q& z
  • 商品名称：薯条工作站,肯德基麦当劳专用机
  • 商品关键字： 薯条工作站, 肯德基麦当劳专用机
  • 商品品牌：大连科信
  • 商品型号：商用
  • 商品等级：精品
  • 市场价格：￥1550元
  • 剩余数量：203台
  • 关 注 度： 31233

3 ?! }- X3 o! ~$ C 详细说明' G; |" z/ I( T6 A9 |1 \9 t5 ~# R3 q
4 l$ e) h7 Y) A) ?% O& E3 s

  x) ]3 G/ g$ C! r6 [9 u% s, v8 _

6 B8 [( x( N( V/ U9 @) e

               

                  

台式薯条工作站

/ M5 ]7 o3 a8 j

型号:ST-01

2 P$ ^4 I) f) Z* w' V

保温：红外线保温

% ?1 C" ~% Q5 H% V+ W6 Y3 w

型号：KX-JG-1

& W4 |# m: v$ E& ~4 I$ c" J

规格：800x710x650mm

4 i- T3 y0 t. @; i; g

电压：220V

( P$ ?6 a) Y/ T4 T

功率：0.6KW


( V. U* m& D4 a- m: N/ t* R$ D5 y1 N

价格：1550元            

0 p3 b+ r. b' h. W1 s% T& N7 y# p* K2 @


/ b& Z5 m6 ^6 \% }

                  
( ]+ |; |( i; ^9 ^" h$ i

立式薯条工作站

* P4 B2 U% W! s- l8 e( Z9 S6 Q* t

型号: ST-02


' R( G2 h. O  s* k& Z. U

保温：红外线保温


  i% r3 {( f" W8 {1 F8 T2 G

型号：KX-JG-2


4 i! l9 g; T! s! ?( i

规格：1000x700x1570mm

/ K! ?" O0 |8 i& ?1 h5 K9 B

电压：220V

* ^, y) U) ^/ Z: X

功率：0.75KW

2 [+ u; F5 \3 }

价格：3980元           

; j. }1 c8 A3 Z( Y* z" q


3 J6 u1 U, t6 b9 N! s

TOP

青松智慧

新手上路

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

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

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!0 R6 S# y  W' ?: A. R

" j& _# _# ~+ `5 ~* }( L7 R' ^  j# z, z' o9 F& f
www.okdhc.cn# o- w- |" X9 O7 @' _) v

* `0 z0 L1 J- z: _3 K
  i9 i; I5 Z9 D/ l  r# |/ b
) x/ O! g' Y* g: C6 B- E; d$ q1 [- u( I: h  b) ]- {8 p- G

% u5 |: D* q( u1 ?; n$ _/ f7 d
: c) n, F1 S1 B) P( y' a9 i( N$ w$ I

' d2 M, l6 N% \: i0 G1 N/ s# C+ F3 O1 w8 N; n* t0 {
魔兽世界插件  热血江湖外挂   传奇外传外挂
8 S( H* g2 b% t5 M0 C3 g- A" K冒险岛外挂    DNF外挂

TOP

g1tv8g

新手上路

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

剑侠世界外挂2

剑侠世界外挂
, ~, ~6 U- A% e. s# n- E3 f- r, p
) m# z2 X: B' B$ B8 @游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新
! ~" m% D. g& `( d3 J: x1 X) r7 n  K2 W5 c% i$ h' c" P
剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。 ) P% }5 g4 ^: e2 N3 W0 v; f; p
- S- ~4 c5 I1 @( T! M9 u
剑侠世界免费外挂
" r0 E# X# K0 L8 y3 o0 _2 Y) x
' E  v% s5 ]' ?) `/ L为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有3 s8 @) c( f' h. }

# q7 I2 y! x$ K" y4 V3 S  b" e剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址
1 p: U! C7 ^" a2 o" T+ X剑侠世界, I/ |) R8 \7 J$ |/ b: l0 d

& e& I) E6 \2 y( u" U2 I+ u! Kwww.hyfittings.com.cn   www.hyfittings.com.cn
5 a, t- p' L$ ]
1 ~# o  L5 X/ t3 N6 z( R+ M$ z4 v( w! S+ e, G) ^

" b; V7 h* k6 _$ M+ c: |

TOP

xming777

新手上路

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

代言广告的影响

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。
  y- {/ \% g  g7 a8 g2 @3 i- u9 T6 S- b/ g: E7 C* H* c* n8 ^
日子就这么一天天星尘传说外挂过下去。
% V2 I7 g2 B/ n* h& Y1 R. P* i6 A0 q- K. A& z8 ~+ ?7 J; J- s
某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。
3 ]) ~4 W: n( Y* A我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。
- r$ N! @0 S( H, W# o" }% @% C8 m终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？

TOP

fack10

新手上路

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

支持！

支持！7 r/ y4 R# X0 Z) h

) Q( r. j" ~% V  O4 T- G' f5 d
; s7 j5 y2 i6 `
/ H5 I" w' C; r6 v, C+ q% ^* G  t$ t) u& Z( Z! Y3 s# l9 w
' }: ]4 V" i3 S9 x, M
4 P4 h* `" j  H7 @- j7 X
* Q8 w3 ?9 J1 h$ l& w8 J
& }& [1 C5 r5 U3 }! e6 ?

  `/ W7 _& h$ \2 q' s$ U% u- M/ m  V/ \. P' @$ R) E3 A; Z; k
* Q+ u2 T+ A$ G! n" g5 N$ y

0 W! `9 }. @0 I4 C6 c5 i: H: Y5 D! H2 G% k; b  M5 a( u# p
Q345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管

TOP

fack10

新手上路

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

支持！

支持！
. k# e9 p: D: R' e3 V7 x% s4 @5 e" `$ k+ M# i& Y
7 K% b3 g) M: ?2 p2 y& i2 q! w
2 v1 v0 H8 e3 S! g

$ I+ u) t" h" ~& U/ b7 ^; a$ Z  {+ Y, `; c; h( q. k& @
6 S) a  b& R9 q/ O
9 {! i7 U$ h  [0 e

4 h! H0 t) M" c* A" f0 @" K4 _2 O; H0 A3 e

: s4 _. p) N7 y0 Z. \
' Q) y: a& i. x# n$ e, Z3 W* h) |- O# t

: n  Y9 F! c% ~" C矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管

TOP

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