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

將 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;
程式不是很漂亮 - I" K. p: X$ }. w) t3 X
大概是這樣嚕  , 其實如果不需要回寫的話
2 F3 \9 ~( ]# j4 w: @' ]直接拿拆解出來的值來塞到 stringgrid 就可以用了

TOP

xming777

新手上路

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

漫山都是绿树

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

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
6 @: K5 e4 l6 D1 A7 n( DQQ:99792190 44984055.
3 j4 e" p- o2 y薯条工作站,肯德基麦当劳专用机精品推荐) p2 v5 P" l' l3 F
6 \3 U7 g8 q5 t' p! {9 k
商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs
. X' t! ]- p" [5 I" k* a7 l 商品参数8 w" ^' V& W8 a
  • 商品名称：薯条工作站,肯德基麦当劳专用机
  • 商品关键字： 薯条工作站, 肯德基麦当劳专用机
  • 商品品牌：大连科信
  • 商品型号：商用
  • 商品等级：精品
  • 市场价格：￥1550元
  • 剩余数量：203台
  • 关 注 度： 31233
4 K% S6 i9 }) ~# H) x* |
详细说明' o5 U  d% a3 t% t% t' ~5 Q: b& R

( b- `& U3 J) X" A- J0 x( O0 }
2 P' i( ?; G5 {0 t8 N


0 E. m" }1 z0 G& G* H

               

                  

台式薯条工作站

4 z) B) u4 f6 r, l! H( r3 X: e

型号:ST-01

+ f8 m& R# \# R: ^$ k0 }. U

保温：红外线保温


- C9 Y9 {6 \. x& ?( p

型号：KX-JG-1

; z, ^" N! H( A

规格：800x710x650mm


8 i( z9 G) C+ d

电压：220V

- h) d: F) u* H

功率：0.6KW


7 D0 K: j# n  O

价格：1550元            


  C  U3 b5 G+ t0 a- R+ D$ b  x

( H2 S8 b; {; d8 b8 O; D7 T4 `1 ~9 t

                  . V0 H# |1 y; p7 n, a

立式薯条工作站

% p3 r* x/ X* Q$ I0 P

型号: ST-02


% R! t) a/ R" i; n1 C, [

保温：红外线保温

" D9 |" G- W4 y3 |7 r9 N* t3 [

型号：KX-JG-2

  n; V% f+ `1 C6 ?

规格：1000x700x1570mm


9 G+ v! s9 `9 ?) [- S- g% K0 ]

电压：220V


: H3 F9 f# d) j

功率：0.75KW


. @" S: v  ?+ Q

价格：3980元           

  p% ~  f6 o6 h  v$ C' H


( C+ a1 i7 J: h

TOP

青松智慧

新手上路

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

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

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!& {7 l* J- E. u& r( _5 S% p  c. c
7 c+ J3 ^, m0 T) \( S7 A; E

/ H9 ?5 F3 F# z  L) |: |www.okdhc.cn9 y, ~0 z& Z+ Y$ s9 x7 r% ~
$ j/ J9 [9 [2 ~9 y
3 Q8 C% l6 v4 b2 u" |7 C

  G# u& E" Z4 |5 N
$ W9 O- I- f+ b! L! R8 C! E6 j3 V/ \% M( B% ]2 }

# Y- L9 e: G# x: S3 {  k& u9 X& n3 s$ |3 U2 _- }& _
4 `2 i3 U) B# c# B

6 I5 p! a. w1 P9 z魔兽世界插件  热血江湖外挂   传奇外传外挂- ?" r7 }4 D+ c2 ^! X* E: C# ?
冒险岛外挂    DNF外挂

TOP

g1tv8g

新手上路

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

剑侠世界外挂2

剑侠世界外挂1 P2 v4 m2 A8 s# P$ j' O3 M0 A

3 q6 V6 G4 S' N' j' K游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新
; K; u/ `6 U; e6 `; E2 G1 _' i8 d, b% u: q: }% ~
剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。 2 |4 y' p3 x7 ?6 q! R6 q& _
* D- G' N5 L  U5 B+ {4 S; N
剑侠世界免费外挂( b* ?5 b" Y8 o2 }5 c" a

# t3 `( [1 w* }' W为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有
& I. }& H5 S$ A9 o- ^8 T! p7 v+ r7 Z: k) m! C
剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址+ b' ~# z& K4 ~' C# ^0 q. w# ]
剑侠世界* M( X- U9 z# R7 G8 u! m
) J- R& ]3 A" c# S& n% F
www.hyfittings.com.cn   www.hyfittings.com.cn
3 [0 `" P( R1 `. G! E! t- @7 J  @; I/ Q# y) R/ L' \3 ^6 ]6 w
4 A# I3 l7 |2 J

' t2 j+ y& _8 l, a5 k

TOP

xming777

新手上路

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

代言广告的影响

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。
# |/ f# K' @$ |- P0 ]
  M5 |. Y) l6 [日子就这么一天天星尘传说外挂过下去。
1 v. D7 l, n0 e& m8 ?6 f
  J9 a, ]! e, F- p& v某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。
# j. b2 @( j5 P# e我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。
* b. a  t5 X: J终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？

TOP

fack10

新手上路

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

支持！

支持！, n% e7 g* n8 A) r% N
: f7 j2 m4 A! t5 D3 c6 c

: l" X0 S6 \! Q2 Q+ b
) @; V: ]% y# N! _4 S1 G& C5 s# O- j4 D  O  _. H- v
: o$ `! S: b/ _, p( f

, i4 a, E, u! l) y+ K5 j& Q8 _( i, R
  F# R( T% j. S+ I$ V
1 d9 p4 M+ X5 E+ k

1 H: [: d. k; O+ `
/ n- R0 ?: u# n. ]! t; p
/ V0 i; c- f" H) p6 ^5 x& u  F: q6 u" L. z' k. ?% s
Q345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管

TOP

fack10

新手上路

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

支持！

支持！
$ |6 Q8 g& z4 [$ _% C2 b( y- t+ ]

2 ^; _% X" t# X. X  n1 M3 p+ @) x5 o0 b* U! N
/ T3 m8 F8 j& x2 c

4 ~& _1 @- C  z) l  W( e3 l& k& N+ W2 u# ?' p
( M  ]8 ]5 c4 }7 T7 k
' G9 ~/ ^; ?" H7 O5 T7 {# {' N  n
7 v' m& w: h) y8 ^3 Y* K

9 N4 t: j( ~1 D
# P  }9 m! G- v2 I4 M5 d
1 F* g' G! }5 N9 F
' V, {- `9 j, v  }" V矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管

TOP

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