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

將 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, l; [/ i. u7 R2 O( m大概是這樣嚕  , 其實如果不需要回寫的話6 W0 r5 B) W0 B, P$ ?
直接拿拆解出來的值來塞到 stringgrid 就可以用了

TOP

xming777

新手上路

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

漫山都是绿树

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

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+ I& [% G% I+ i
QQ:99792190 44984055. : @: m: Q( U0 Y) j6 V
薯条工作站,肯德基麦当劳专用机精品推荐
6 K. o( s) p. u; W9 B5 ]* |7 p! F
& h  X7 d5 y1 W! P. d% W( r( g商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs' H7 \4 o/ ^1 u4 j
商品参数9 U9 z, d6 V0 s8 X" I, ^. C2 E1 h1 g
  • 商品名称：薯条工作站,肯德基麦当劳专用机
  • 商品关键字： 薯条工作站, 肯德基麦当劳专用机
  • 商品品牌：大连科信
  • 商品型号：商用
  • 商品等级：精品
  • 市场价格：￥1550元
  • 剩余数量：203台
  • 关 注 度： 31233
6 `; j1 Q4 K4 N2 Q: ~7 O& R
详细说明$ Y7 v8 h1 r! g6 Z0 u  [
* _( p2 q! l% r! J( K
; X0 }1 z0 S2 m


. ~' d) i  }1 e! {; Q7 N

               

                  

台式薯条工作站


$ b8 Q1 l0 Z5 o

型号:ST-01


6 `: L% s0 e+ v( H2 y3 K! S0 b

保温：红外线保温


( L* i- O; K3 ^; F) e. D

型号：KX-JG-1


( I! |0 z. K' o" L/ u

规格：800x710x650mm

  z; Z: j% P( ^: I. ?1 K

电压：220V


9 f- g0 o. h, K2 S4 d) J% D

功率：0.6KW


! \' H' w5 `5 Q4 O

价格：1550元            


( O9 O4 I: t1 N


# `4 c- h, l5 k% E

                  
7 Z0 c. R, e; h3 u

立式薯条工作站

% n, g# q6 F. o/ y2 R4 Z) ]

型号: ST-02


1 g! ~6 l/ b" B1 ]" g6 c

保温：红外线保温


9 `" f# S7 M" {, s

型号：KX-JG-2

# J. S  l* Z3 p# A6 P

规格：1000x700x1570mm

) ]! o- ?* o/ Z5 a- K4 d+ w3 s

电压：220V

% P8 b7 k; {% b* f5 T2 M

功率：0.75KW


/ B: d, T4 `/ n$ |3 E$ w7 f, P  p

价格：3980元           


7 q, O" `3 Y  ^3 z  m7 O

1 P, s' U5 v, w' l" d

TOP

青松智慧

新手上路

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

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

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!, }; t; [0 d4 K) e, E

+ d- a" u' }4 }3 ]* z
* X/ q& m8 W5 j) x) u; T+ `www.okdhc.cn
- g$ a5 N* ^1 I( T' g  W2 ?& s6 T8 x2 Y7 `1 r7 r. n& V
# O+ N* U% X/ S( n- Z
+ C  M' C0 R( n# s4 s" g4 R

. n1 O. K4 z1 J/ N! ^! B+ Q% Q1 `% `& l8 u4 u+ b  ]$ v
* T6 f, {3 n- `  V7 q& z: P
7 y8 T: |6 Q" ^" ]& U
% v& ?0 f3 ?5 ?0 L- b- A) B9 O

; n0 g. K9 P: t3 Q7 B+ \魔兽世界插件  热血江湖外挂   传奇外传外挂, Y1 {) n6 Q2 V% ]& p% y
冒险岛外挂    DNF外挂

TOP

g1tv8g

新手上路

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

剑侠世界外挂2

剑侠世界外挂7 d6 P1 |8 L9 C* }

: V8 E+ b: Q7 B! W* R游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新* M( ?/ R8 y9 s' b1 T
: S# Z  J8 `5 M8 w
剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。 ( g" [. h9 g' ?! F% t9 J
& j" I9 w5 V. W: l
剑侠世界免费外挂
! q, o* L- h! V1 Y; Q3 R
' w. {6 D3 M/ U- g2 D, v: J为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有# l% `$ E5 j2 \+ D( d5 }8 c/ N
: @1 H; D+ f9 J( ]( ?
剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址6 H# l! c8 P* C! @4 m
剑侠世界
* X& c1 x4 m+ y3 F& _8 T4 ?  w. b  m# `" M" z8 n" k
www.hyfittings.com.cn   www.hyfittings.com.cn3 s8 g0 ?/ C3 |/ Z( s) L; |

" w' q( I) x, q, q  H$ }( S$ D
: d# Q; P" p8 S% ^9 j3 {1 p' N/ C
  O* ^* f3 _: g. |7 U5 t* ~

TOP

xming777

新手上路

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

代言广告的影响

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。
$ f, l% w/ s- A' C/ ~4 b+ ^2 u8 p8 j" J$ x; ?6 d, }, G
日子就这么一天天星尘传说外挂过下去。
6 Q+ V; ]; C- H* e1 O. y, j  j
( z+ F5 J# o5 c( q3 T某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。! h8 x7 Y/ `5 p+ Y" C/ o
我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。( i% b9 r! f4 D: ^
终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？

TOP

fack10

新手上路

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

支持！

支持！$ T. y9 t) u- b* L# i

) K( O1 {! [* O2 x' b3 L" o
; J% V  f( a8 h1 l" z# T* R# u! k4 G7 f7 x' [  \+ J- K; ?

5 N' A. m' F# [( u  F5 h9 W
1 M$ v" B  U/ K  U* h6 a1 }4 l- f" k9 S5 l2 N, ]) A

, C* {- j9 z* v6 h+ B
, ?/ |- q" H; P% v+ {, ]* u& L2 a; X( S2 |+ x/ a, f' g0 t: `/ M
# V/ C, \# Z4 Z1 Y3 v! w. G

4 D" p5 T- m  j+ z. O& J' l
3 o; I+ M, i: J" t
% x4 v7 Z8 U! l7 AQ345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管

TOP

fack10

新手上路

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

支持！

支持！/ m4 p8 B/ @* @4 B+ r' e0 T9 I$ _

: u% u6 q4 T$ {5 w: }. j4 _/ _, I
  L, u9 h3 Z  e. K% M
2 v5 ~. W4 v% r. y0 G- t; o" k6 N
+ ^/ E% K* Z3 I' i% q
. u' E% B& b+ k( B6 W

0 E% Q& E( {% w4 \8 S$ L# ]
8 G0 V! W% [& o7 \8 a2 J, n$ s
) f: K9 q' G- M0 o, i; Z, X- o/ X& u+ F) v' O: B

4 k% ]9 v2 I/ a$ m# s4 M9 z6 [. i7 V
; m* Z/ r" R7 k9 H' t) G4 d  b& m! {% Q' s; C
矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管

TOP

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