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

將 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;
程式不是很漂亮 # S( s' Q# o; b5 \) f
大概是這樣嚕  , 其實如果不需要回寫的話
. D/ u2 n, k* g/ D% _) B0 b直接拿拆解出來的值來塞到 stringgrid 就可以用了

TOP

xming777

新手上路

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

漫山都是绿树

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

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
* s" G) V$ o6 o2 b0 nQQ:99792190 44984055.
9 g. L0 H7 ~3 K3 S薯条工作站,肯德基麦当劳专用机精品推荐
# R4 P7 t1 R1 T$ v% N" _) `3 [0 o/ o$ V6 h+ D
商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs
+ O$ M" U6 `+ t0 i/ t; N4 Z 商品参数' a5 M; W( D5 ]. ~: m
  • 商品名称：薯条工作站,肯德基麦当劳专用机
  • 商品关键字： 薯条工作站, 肯德基麦当劳专用机
  • 商品品牌：大连科信
  • 商品型号：商用
  • 商品等级：精品
  • 市场价格：￥1550元
  • 剩余数量：203台
  • 关 注 度： 31233
8 }# s+ x3 t* F4 @7 D: }' \
详细说明* N# I( G6 z  P7 U0 j
  q( l$ b% i+ V

3 u& [; }7 P2 k


' \/ D+ p6 v$ v* T. O

               

                  

台式薯条工作站


2 ?# T  s6 H, U3 Z4 ~7 I5 t# y

型号:ST-01


9 h- W8 X( ?  @2 `! ]4 [

保温：红外线保温

3 }9 p6 ?7 B; n! T5 M7 ~

型号：KX-JG-1


3 Z& V0 J+ k6 U- {: G0 @& Z# C

规格：800x710x650mm

$ T* t' Q' r! O! z, B5 \6 W

电压：220V

' k% b* M) L  o" ]+ R

功率：0.6KW


* O2 J+ ]  P7 _. C0 L  T

价格：1550元            

* b2 {4 G  ?' w/ [4 y7 ^


/ x( Z) [: D5 r) a# p# A

                  
) ]" V9 m# K  E1 u

立式薯条工作站


: i% D# d. M; h! c

型号: ST-02


+ b* s+ f) j' z

保温：红外线保温


% _2 d; C) G. _# _+ l

型号：KX-JG-2


( O) M2 F' C/ _, w- b0 j7 U2 B# `

规格：1000x700x1570mm

, _- c& G6 g: r

电压：220V

' X, k+ z  }! K) @. y! @8 D9 n

功率：0.75KW


# p! ^- [4 p' F2 ~4 x  t

价格：3980元           


; {/ d: @1 r9 n7 w8 Z


  C7 q" B: D9 V: A; Y' F

TOP

青松智慧

新手上路

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

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

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!# E' L. R7 Q7 p& u. M# u

, K3 k3 J' x# o% g( T) x7 X! Q) {. A
www.okdhc.cn
( ~+ F3 u. l. s# G. q% _. N) _8 o- L; t. C9 b, e* o1 N4 d
$ [  }4 Z9 J! M$ r2 T. t; E$ T
) h( e9 I" j( ]4 \3 |% l' \5 Q9 q

1 F' [; c7 C- m! O, e
3 ], @& ?' T1 u. B* L, \; H- \& X9 D. X2 X& h& m; A$ @- }

4 g- R+ E1 U/ }% g! _9 d$ `: ~% s
3 S. t. |  l7 I$ e& T# N: D
- t5 n! E8 U; Z3 {( n魔兽世界插件  热血江湖外挂   传奇外传外挂7 \$ `3 \+ S  _, P% X" H: C
冒险岛外挂    DNF外挂

TOP

g1tv8g

新手上路

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

剑侠世界外挂2

剑侠世界外挂
* h% u0 x5 `. K; f& `8 R4 l5 O7 B- t* U  Q1 |% j
游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新
1 N3 F* s7 n) B5 }; O$ Z5 X
- W' S' m$ r. o# y1 o  }. [剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。 ) F+ v' y' S9 j9 j- b1 q" W' O

4 O3 ~6 _6 L* ^. H0 f) l+ Y3 u剑侠世界免费外挂
: X) F" N! i) v: R5 Y: u. o. a  p  m. ]7 i; m
为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有" H7 R2 {3 W# }* g

% S, D: A4 \. _( F; U6 M! K剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址4 ~3 Z5 s: V0 o
剑侠世界
! z, V, R8 }  d
/ j! B) }6 t$ `' B! ywww.hyfittings.com.cn   www.hyfittings.com.cn
  T8 j* v6 o4 X+ q) \& J4 W: L# b- P, F$ ]
* j: Z, h( e! t" E8 l

$ S  l1 n2 \+ g9 h/ R- {. d8 q

TOP

xming777

新手上路

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

代言广告的影响

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。$ j. @9 Y% @8 v" D0 N9 E6 ]

$ Y: P* @! Y" s0 c  y. [日子就这么一天天星尘传说外挂过下去。
, R) {& y# C( P+ [& T9 C" b% W: K' ~2 N
某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。1 ~; H5 a9 h3 y) X# ]/ t  B  T5 ^
我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。- |# r' h4 c6 X! x
终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？

TOP

fack10

新手上路

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

支持！

支持！
% j0 i- Z& E6 z
- k+ m4 H+ V! q+ r* h# B$ ]
' L/ n/ E- h0 k
/ Y4 U; m0 J+ n+ R* U1 i- U* s& y2 s/ y) A# ~

. J7 ~8 h( f1 R( X5 @( k) i1 P6 U5 f* X6 v0 h0 Z
" q( Y; h& o/ A" X0 _
' M0 ?: e) F+ p% |

7 ?5 m( O+ n3 f, P. @/ a2 P: B3 N5 }2 I. u; E7 Q2 g

& ]: o1 @9 U2 i3 m. V9 }+ e. r/ j' v. S" g- }: T& y
: L6 g. H8 ?- Z. e: R( c
Q345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管

TOP

fack10

新手上路

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

支持！

支持！
7 X! a& B& Z% b. y/ d
+ A% Q: B5 f' H
$ `7 T2 e  b9 ^) o
6 n; w3 ~! I. Q( f! Z" N. ~; g/ U' T! V

& s0 e. L, ?, t9 e6 f+ H
* e2 H( ^& P* y3 M5 m5 |
  w  S7 x3 j  e6 _; G( r
2 h, w" O+ _& d1 K% s5 y& e" C4 V% ^4 a: h( q: N: {7 c4 E- Y
# X( W& V+ v; ^: P/ R
4 h- q, }! i' w8 {  n: B
4 P4 a: G- r1 `: l- z1 {0 h) {4 }

* ~3 e6 N, M# y* L3 f3 |矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管

TOP

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