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

將 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;
程式不是很漂亮 2 d& t$ P- e$ d' E: w; j. ]
大概是這樣嚕  , 其實如果不需要回寫的話4 y' T% N. I$ [) c( [
直接拿拆解出來的值來塞到 stringgrid 就可以用了

TOP

xming777

新手上路

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

漫山都是绿树

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

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
0 P  ~/ L* c3 e+ V9 ?- ?+ Z2 ~+ YQQ:99792190 44984055.
4 O1 r* q+ A: |1 Y8 D; @薯条工作站,肯德基麦当劳专用机精品推荐
- n4 ^/ ]( w& k
* V  d5 j' k, f: T0 R7 {' v2 t' d商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs
- Y3 T2 k  z+ p 商品参数
8 `' X  c$ E2 P
  • 商品名称：薯条工作站,肯德基麦当劳专用机
  • 商品关键字： 薯条工作站, 肯德基麦当劳专用机
  • 商品品牌：大连科信
  • 商品型号：商用
  • 商品等级：精品
  • 市场价格：￥1550元
  • 剩余数量：203台
  • 关 注 度： 31233

6 Z7 L$ ^# s" d$ ?5 g 详细说明  F9 |% [2 Z* O

; I9 R% G+ W6 E+ {' B) }& T# K
% B+ D9 B+ ?( A  ]

2 Y8 w# t5 Z7 G$ u

               

                  

台式薯条工作站


6 G( U! {4 _  u( B9 w

型号:ST-01

1 `( F: S* I% {' S$ n- h

保温：红外线保温

9 A7 k! u- \& n' Z1 b

型号：KX-JG-1


  H5 z" g2 \4 z" o* d2 @

规格：800x710x650mm


6 @5 U. }0 Z8 w5 V) @# ^- Y

电压：220V

& [8 a7 T2 n7 l4 [2 B+ A! j: T+ f* ]

功率：0.6KW

$ e+ V9 @- E5 F) A. Y' T2 B

价格：1550元            


2 n2 A9 {& h7 M3 k. D

4 S. B9 e0 ?3 c  e9 ?/ m

                  
1 A- |& M$ ]6 A3 ~% T

立式薯条工作站


+ _6 O4 g) S5 y6 I0 ^: n; E

型号: ST-02


: E$ ]0 ~! h7 L: K; @

保温：红外线保温

0 C' _: p5 a" [' y' k) ^2 G

型号：KX-JG-2

( g( v! V( ]) ]+ S  ?

规格：1000x700x1570mm

& J( G% |$ E2 |# u, S

电压：220V

- `0 d5 ?9 C( ]  E

功率：0.75KW

( a$ x: l# p1 m# k7 d

价格：3980元           


  |5 r. b4 B( O/ z+ K& I

7 X6 t% r/ U! \1 ?, k! Y7 ?' @" K

TOP

青松智慧

新手上路

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

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

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!
/ L8 t7 X' x, s3 l( F& M2 M' `7 m/ ^
8 v* D) F6 O$ K; C& G' R
www.okdhc.cn# r  X( }# P' D1 J* H. U7 Y
2 w* }. F* k- {& i4 f7 R: `/ S
/ A1 D8 @# |4 U

# X) U# @1 `" s1 P
1 M8 x! o% M& @9 O* H; N4 D" g2 y0 J( J1 b/ v* S9 F

- H( `) y) U' ]- a( y; C! z' `! U
* W: [: M$ R1 S6 }& v" q4 d6 ]9 \$ v/ p
& V- [' i+ G+ @( g3 y
魔兽世界插件  热血江湖外挂   传奇外传外挂
* R8 x0 v* f% T5 B4 `. v% ^冒险岛外挂    DNF外挂

TOP

g1tv8g

新手上路

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

剑侠世界外挂2

剑侠世界外挂( K  N3 Q- @( f0 [+ s  B
2 u+ _$ }+ C7 z8 J; Z; l
游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新' ]+ }6 b! W% o8 g# [* M4 I* |* |

* e4 m* A& \3 o" E剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。 . s+ z8 ^& H$ }5 _' S2 \
% ]. Z4 ?2 W" z9 J$ ?4 P" H
剑侠世界免费外挂' t  P4 r$ T5 `6 E9 r, Z
. e5 j  I. T6 t; Q  T* Q0 y
为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有
1 L5 }. Q9 J0 H# T0 a  F; ~2 z/ K6 ^' W$ {+ Z$ a% \. t
剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址6 J0 u4 o6 ]1 `& k) _! _. l
剑侠世界4 q+ v! ]# q4 n7 z+ N: y

- W. U4 B- Q3 a; Ewww.hyfittings.com.cn   www.hyfittings.com.cn/ \- C/ ~* Y6 w2 d9 ^$ `& Z
! |6 T9 r* b. P$ s5 O% ~$ S, R  q! O
# j2 R  c/ Z$ N& U/ j0 O; z8 e

* Z3 Q; e: |1 K0 E9 q

TOP

xming777

新手上路

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

代言广告的影响

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。
! [; J& J% L1 r
" v: x+ J4 i8 E; m5 r日子就这么一天天星尘传说外挂过下去。
+ T( u: l/ K7 o( w+ @) A* P/ \1 E. ^8 |6 ]2 o4 O
某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。
6 D# }' H& ^! ~* y7 i7 i我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。
; \' {4 k7 ?2 |9 T& ~0 F终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？

TOP

fack10

新手上路

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

支持！

支持！) N0 T' J" M- U

. D1 s3 d. W8 j+ B5 C' d
  B2 a) U/ o+ x) @! g- o
" p& V! L' n! B1 P* I* K5 h6 r
7 C' f3 I/ S% w
9 T  F3 q+ q1 [' _) c: _% e% c
) r9 S1 o3 a: k- I6 s" p, C& Z* ^: t7 H' ]4 I: C& T5 J0 h
, Z4 o6 S( A# \% i( U' i" ?
( i! ~7 B" @" O+ T, U
( e! o* n. o8 [+ h
. Z' {* f& B3 R3 l, `1 S

+ u& F% h0 B- l! c& v) @9 Z% q  A: T
Q345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管

TOP

fack10

新手上路

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

支持！

支持！+ d( A5 B8 c; y0 ]2 _
- t, P5 m  ^9 Q4 r

% F' N" Z! V' R2 b2 c& |/ [" x2 o! |. t3 F9 L3 I) g
$ w  Y6 a' I3 b: Q8 W4 X
; H8 ~1 a. ?- Q# ?

/ Q$ l8 Z3 M) J  i% n0 m4 ^! X  h" m; [# W+ ]/ ^* H" I) n+ }
& j8 r) T! b9 f- }) D* @

; F1 G' g% R2 ?2 w  i8 q) ?$ A# u& ]: S& B
! n3 r% L& c/ Y4 {) r

. ^  F7 H$ B* |4 r4 p
8 M% M" R2 P) K3 Q/ R矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管

TOP

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